A089804 Expansion of Jacobi theta function theta_4^3(q^5).

1, 0, 0, 0, 0, -6, 0, 0, 0, 0, 12, 0, 0, 0, 0, -8, 0, 0, 0, 0, 6, 0, 0, 0, 0, -24, 0, 0, 0, 0, 24, 0, 0, 0, 0, 0, 0, 0, 0, 0, 12, 0, 0, 0, 0, -30, 0, 0, 0, 0, 24, 0, 0, 0, 0, -24, 0, 0, 0, 0, 8, 0, 0, 0, 0, -24, 0, 0, 0, 0, 48, 0, 0, 0, 0, 0, 0, 0, 0, 0, 6, 0, 0, 0, 0, -48, 0, 0, 0, 0, 36, 0, 0, 0, 0, -24, 0

Offset

0,6

Links

G. C. Greubel, Table of n, a(n) for n = 0..1000

Eric Weisstein's World of Mathematics, Jacobi Theta Functions

Eric Weisstein's World of Mathematics, q-Series Identities

Mathematica

A089804[n_] := SeriesCoefficient[EllipticTheta[4, 0, q^5]^3, {q, 0, n}]; Table[A089804[n], {n, 0, 50}] (* G. C. Greubel, Nov 20 2017 *)

Crossrefs

Sequence in context: A306550 A339861 A087936 * A270606 A087255 A097606

Adjacent sequences: A089801 A089802 A089803 * A089805 A089806 A089807

Keyword

sign

Author

Eric W. Weisstein, Nov 12 2003

Status

approved