login
A307050
Expansion of theta_3(theta_3(x) - 1), where theta_3() is the Jacobi theta function.
2
1, 4, 0, 0, 36, 0, 0, 128, 0, 1028, 192, 0, 9344, 128, 0, 37248, 131108, 9216, 86400, 2097280, 73920, 129152, 15729024, 258432, 2235392, 140546436, 516288, 31617408, 1916531072, 645120, 220496640, 20708053504, 16318464, 2632546688, 155432759872, 220975488, 180568120740, 850648084992
OFFSET
0,2
LINKS
Eric Weisstein's World of Mathematics, Jacobi Theta Functions
MATHEMATICA
nmax = 37; CoefficientList[Series[EllipticTheta[3, 0, EllipticTheta[3, 0, x] - 1], {x, 0, nmax}], x]
CROSSREFS
Sequence in context: A060784 A181204 A191417 * A223179 A278272 A192057
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Mar 28 2019
STATUS
approved