OFFSET
0,1
COMMENTS
0's occur at positions indexed by the odious numbers given by A091855.
FORMULA
MATHEMATICA
a[n_] := Mod[Sum[Product[ThueMorse[i], {i, k+1, n}], {k, 0, n}], 2]; Array[a, 100, 0] (* Amiram Eldar, Aug 04 2023 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Paul Barry, Jan 10 2007
EXTENSIONS
More terms from Amiram Eldar, Aug 04 2023
STATUS
approved