A307050 Expansion of theta_3(theta_3(x) - 1), where theta_3() is the Jacobi theta function.

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

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

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

Cf. A000122, A307186.

Sequence in context: A060784 A181204 A191417 * A223179 A278272 A192057

Adjacent sequences: A307047 A307048 A307049 * A307051 A307052 A307053

Keyword

nonn

Author

Ilya Gutkovskiy, Mar 28 2019

Status

approved