A307186 Expansion of theta_4(theta_4(x) - 1), where theta_4() is the Jacobi theta function.

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

Table of n, a(n) for n=0..37.

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

Cf. A002448, A307050.

Sequence in context: A280727 A232357 A196302 * A060784 A181204 A191417

Adjacent sequences: A307183 A307184 A307185 * A307187 A307188 A307189

Keyword

sign

Author

Ilya Gutkovskiy, Mar 28 2019

Status

approved