OFFSET
0,3
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 0..1000
N. J. A. Sloane, Transforms
FORMULA
G.f.: (1/2)*(1/(1 - 2*x) - (1/(1 - x))*Product_{k>=0} (1 - x^(2^k)/(1 - x)^(2^k))). - Ilya Gutkovskiy, Aug 20 2018
MATHEMATICA
tm[0] = 0;
tm[n_?EvenQ] := tm[n] = tm[n/2]; tm[n_] := tm[n] = 1-tm[(n-1)/2];
a[n_] := Sum[tm[k]*Binomial[n, k], {k, 0, n}];
Table[a[n], {n, 0, 40}]
(* or (since 2015): *)
a[n_] := Sum[ThueMorse[k]*Binomial[n, k], {k, 0, n}];
Table[a[n], {n, 0, 40}] (* Jean-François Alcover, Jun 30 2015, updated Jul 19 2022 *)
PROG
CROSSREFS
KEYWORD
nonn,nice
AUTHOR
EXTENSIONS
More terms from Carl Najafi, Sep 08 2011
STATUS
approved