OFFSET
0,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..1024
FORMULA
a(0) = 1; a(2^n) = 2^(n+1); a(n) = 0 otherwise.
MATHEMATICA
Join[{1}, Table[If[IntegerQ[Log2[n]], 2n, 0], {n, 512}]] (* or *) Join[{1}, With[{kk=10}, Flatten[ Riffle[ 2^Range[kk], Table[PadRight[{}, 2^k-1, 0], {k, 0, kk}]]]]] (* Harvey P. Dale, Aug 11 2024 *)
PROG
(PARI) a(n)=local(B); B=0; for(i=0, n, B=bitxor(B, binomial(n, i)%2*(2*(n-i)+1))); B
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Oct 29 2004
STATUS
approved