login

Revision History for A325095

(Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing entries 1-10 | older changes
Number of subsets of {1...n} with no binary carries.
(history; published version)
#17 by N. J. A. Sloane at Sat Jul 27 14:57:51 EDT 2019
COMMENTS

A binary carry of two positive integers is an overlap of the positions of 1's in their reversed binary digitsexpansion. For example, the binary representations of {2,5,8} are:

Discussion
Sat Jul 27
14:57
OEIS Server: https://oeis.org/edit/global/2822
#16 by OEIS Server at Thu Mar 28 20:04:52 EDT 2019
LINKS

Alois P. Heinz, <a href="/A325095/b325095_1.txt">Table of n, a(n) for n = 0..16383</a>

#15 by Alois P. Heinz at Thu Mar 28 20:04:52 EDT 2019
STATUS

editing

approved

Discussion
Thu Mar 28
20:04
OEIS Server: Installed new b-file as b325095.txt.  Old b-file is now b325095_1.txt.
#14 by Alois P. Heinz at Thu Mar 28 20:04:49 EDT 2019
LINKS

Alois P. Heinz, <a href="/A325095/b325095_1.txt">Table of n, a(n) for n = 0..819116383</a>

#13 by Alois P. Heinz at Thu Mar 28 19:49:46 EDT 2019
MAPLE

`if`(Bits[And](n, t)>0, =0, b(n-1, Bits[Or](n, t)), 0))

#12 by Alois P. Heinz at Thu Mar 28 19:37:27 EDT 2019
MAPLE

b:= proc(n, t) option remember; `if`(n=0, 1, b(n-1, t)+

`if`(Bits[And](n, t)>0, 0, b(n-1, Bits[Or](n, t))))

end:

a:= n-> b(n, 0):

seq(a(n), n=0..63); # Alois P. Heinz, Mar 28 2019

STATUS

approved

editing

#11 by Alois P. Heinz at Thu Mar 28 19:04:54 EDT 2019
STATUS

editing

approved

#10 by Alois P. Heinz at Thu Mar 28 19:04:52 EDT 2019
KEYWORD

nonn,look,new

#9 by Alois P. Heinz at Thu Mar 28 19:04:08 EDT 2019
LINKS

Alois P. Heinz, <a href="/A325095/b325095.txt">Table of n, a(n) for n = 0..8191</a>

#8 by Alois P. Heinz at Thu Mar 28 18:27:53 EDT 2019
KEYWORD

nonn,more,new

EXTENSIONS

a(16)-a(55) from Alois P. Heinz, Mar 28 2019