OFFSET
0,4
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
Ph. Flajolet and A. Odlyzko, Singularity analysis of generating functions, SIAM J. Discrete Math., vol 3 (1990) pp. 216-240.
MAPLE
y:=(1-sqrt(1-4*z))/(1+sqrt(1-4*z));
f:=add(y^(2^k)/(1+y^(2^(k+1))), k=1..12);
series(f, z, 24);
MATHEMATICA
y[z_] = (1 - Sqrt[1 - 4*z])/(1 + Sqrt[1 - 4*z]);
f[z_] = Sum[y[z]^(2^k)/(1 + y[z]^(2^(k+1))), {k, 12}];
CoefficientList[Series[f[z], {z, 0, 23}], z]
(* Jean-François Alcover, Jun 30 2011, after Maple prog. *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jun 08 2011
STATUS
approved