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*(i+1)/2<n or
n=0, 0, (t-> `if`(i<n, b(n-i, min(i-1, n-i), t), 0)
+`if`(i=n, t, 0)+b(n, i-1, r))(Bits[Or](i, r)))
end:
a:= n-> b(n$2, 0):
seq(a(n), n=0..49);
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Alois P. Heinz, Mar 16 2019
STATUS
approved