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
KEYWORD
sign
AUTHOR
Ilya Gutkovskiy, Mar 28 2019
STATUS
approved