OFFSET
0,3
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..444
FORMULA
a(0) = 1, a(n) = product(XOR(j, floor(j/2)), j=1..n).
a((2^n)-1) = A000142((2^n)-1) for all n.
MATHEMATICA
Join[{1}, FoldList[Times, Table[BitXor[n, Floor[n/2]], {n, 20}]]] (* Harvey P. Dale, Oct 05 2016 *)
PROG
(PARI) a(n) = prod(i=1, n, bitxor(i, i>>1)); \\ Michel Marcus, Apr 22 2013, Oct 02 2015
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Antti Karttunen, Jul 14 1999
STATUS
approved