login
A307186
Expansion of theta_4(theta_4(x) - 1), where theta_4() is the Jacobi theta function.
2
1, 4, 0, 0, 28, 0, 0, -128, 0, 1028, 192, 0, -9088, -128, 0, 36480, 131100, 9216, -85632, -2097280, -73536, 128896, 15729024, 257664, 1958912, -6254972, -515904, -31297920, -1439428224, 645120, 219906816, 19558813184, 15138816, 724137600, -153270595008, -219427200, 100035011996, 847208754688
OFFSET
0,2
LINKS
Eric Weisstein's World of Mathematics, Jacobi Theta Functions
MATHEMATICA
nmax = 37; CoefficientList[Series[EllipticTheta[4, 0, EllipticTheta[4, 0, x] - 1], {x, 0, nmax}], x]
CROSSREFS
Sequence in context: A280727 A232357 A196302 * A060784 A181204 A191417
KEYWORD
sign
AUTHOR
Ilya Gutkovskiy, Mar 28 2019
STATUS
approved