%I #5 Mar 28 2019 20:25:01
%S 1,4,0,0,28,0,0,-128,0,1028,192,0,-9088,-128,0,36480,131100,9216,
%T -85632,-2097280,-73536,128896,15729024,257664,1958912,-6254972,
%U -515904,-31297920,-1439428224,645120,219906816,19558813184,15138816,724137600,-153270595008,-219427200,100035011996,847208754688
%N Expansion of theta_4(theta_4(x) - 1), where theta_4() is the Jacobi theta function.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/JacobiThetaFunctions.html">Jacobi Theta Functions</a>
%t nmax = 37; CoefficientList[Series[EllipticTheta[4, 0, EllipticTheta[4, 0, x] - 1], {x, 0, nmax}], x]
%Y Cf. A002448, A307050.
%K sign
%O 0,2
%A _Ilya Gutkovskiy_, Mar 28 2019
|