OFFSET
0,2
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 0..10000 (terms 0..1000 from Seiichi Manyama)
Eric Weisstein's World of Mathematics, Jacobi Theta Functions
FORMULA
Convolution inverse of A320078.
Expansion of Product_{k>0} (eta(q^(2*k-1))*eta(q^(4*(2*k-1))))^2 / eta(q^(2*(2*k-1)))^5.
MATHEMATICA
nmax = 50; CoefficientList[Series[1/Product[EllipticTheta[3, 0, x^(2*k-1)], {k, 1, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Oct 06 2018 *)
nmax = 50; CoefficientList[Series[Product[(1 + x^(2*j*(2*k - 1)))^2/((1 - x^((2*k - 1)*j))*(1 + x^((2*k - 1)*j))^3), {k, 1, nmax}, {j, 1, Floor[nmax/k] + 1}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Oct 06 2018 *)
PROG
(PARI) q='q+O('q^80); Vec(1/prod(k=1, 50, eta(q^(2*(2*k-1)))^5/( eta(q^(2*k-1))* eta(q^(4*(2*k-1))))^2 ) ) \\ G. C. Greubel, Oct 29 2018
CROSSREFS
KEYWORD
sign
AUTHOR
Seiichi Manyama, Oct 05 2018
STATUS
approved