A127245 Row sums of a signed Thue-Morse related triangle.

1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 1

Offset: 0

Author

Paul Barry, Jan 10 2007

Keywords

• easy
• nonn

Comments

0's occur at positions indexed by the odious numbers given by A091855.

Crossrefs

Row sums of A127244.

Cf. A000069, A010060, A091855, A127246.

Programs

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 *)

Formula

a(n) = A127246(n) mod 2.

a(n) = Sum_{k=0..n} ((-1)^(n-k) * Product_{j=0..n-k-1} A010060(n-j)).

Extensions

More terms from Amiram Eldar, Aug 04 2023