OFFSET
0,3
LINKS
N. J. A. Sloane, Transforms
Eric Weisstein's World of Mathematics, Jacobi Theta Functions
FORMULA
G.f.: 1/(1 - x*Sum_{k>=0} x^(k^2)).
a(0) = 1; a(n) = Sum_{k=1..n} A010052(k-1)*a(n-k).
MATHEMATICA
nmax = 40; CoefficientList[Series[1/(1 - x (1 + EllipticTheta[3, 0, x])/2), {x, 0, nmax}], x]
nmax = 40; CoefficientList[Series[1/(1 - x Sum[x^k^2, {k, 0, nmax}]), {x, 0, nmax}], x]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Mar 30 2018
STATUS
approved