OFFSET
0,3
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..1000
Wikipedia, Bitwise operation
Wikipedia, Commutative property
Wikipedia, Identity element
Wikipedia, Partition (number theory)
Wikipedia, Truth table
MAPLE
b:= proc(n, i, r) option remember; `if`(i<1, 0, (t->
`if`(i<n, b(n-i, min(i, n-i), t), 0)+
`if`(i=n, t, 0)+b(n, i-1, r))(Bits[And](i, r)))
end:
a:= n-> b(n$2, 2^ilog2(2*n)-1):
seq(a(n), n=0..55);
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Alois P. Heinz, Mar 15 2019
STATUS
approved