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

1, 0, 0, 0, 0, -2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

Offset

0,6

Links

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

Eric Weisstein's World of Mathematics, Jacobi Theta Functions

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

Mathematica

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

Crossrefs

Sequence in context: A346483 A349378 A331918 * A354449 A349436 A089811

Adjacent sequences: A089800 A089801 A089802 * A089804 A089805 A089806

Keyword

sign

Author

Eric W. Weisstein, Nov 12 2003

Status

approved