A127246 Row sums of a Thue-Morse related triangle.

1, 2, 3, 1, 2, 1, 1, 2, 3, 1, 1, 2, 1, 2, 3, 1, 2, 1, 1, 2, 1, 2, 3, 1, 1, 2, 3, 1, 2, 1, 1, 2, 3, 1, 1, 2, 1, 2, 3, 1, 1, 2, 3, 1, 2, 1, 1, 2, 1, 2, 3, 1, 2, 1, 1, 2, 3, 1, 1, 2, 1, 2, 3, 1, 2, 1, 1, 2, 1, 2, 3, 1, 1, 2, 3, 1, 2, 1, 1, 2, 1, 2, 3, 1, 2, 1, 1

Offset: 0

Author

Paul Barry, Jan 10 2007

Keywords

• easy
• nonn

Crossrefs

Row sums of A127247.

Cf. A010060.

Programs

Mathematica

a[n_] := Sum[Product[ThueMorse[i], {i, k+1, n}], {k, 0, n}]; Array[a, 100, 0] (* Amiram Eldar, Aug 04 2023 *)

Formula

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

Extensions

More terms from Amiram Eldar, Aug 04 2023