A101651 a(n) = Product_{k=0..n} (1 + 0^A010060(k))/2.

1, 1, 1, 2, 2, 4, 8, 8, 8, 16, 32, 32, 64, 64, 64, 128, 128, 256, 512, 512, 1024, 1024, 1024, 2048, 4096, 4096, 4096, 8192, 8192, 16384, 32768, 32768, 32768, 65536, 131072, 131072, 262144, 262144, 262144, 524288, 1048576, 1048576, 1048576, 2097152, 2097152, 4194304

Offset

0,4

Links

Table of n, a(n) for n=0..45.

Formula

a(n) = 2^A245710(n). - Amiram Eldar, Feb 16 2026

Mathematica

a[n_] := Product[2 - ThueMorse[k], {k, 0, n}] / 2; Array[a, 50, 0] (* Amiram Eldar, Feb 16 2026 *)

Crossrefs

Cf. A010060, A245710.

Sequence in context: A388154 A160159 A283241 * A325880 A132007 A094605

Adjacent sequences: A101648 A101649 A101650 * A101652 A101653 A101654

Keyword

easy,nonn

Author

Paul Barry, Dec 10 2004

Status

approved