login
A089803
Expansion of Jacobi theta function theta_4(q^5).
1
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
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
KEYWORD
sign
AUTHOR
Eric W. Weisstein, Nov 12 2003
STATUS
approved