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
KEYWORD
sign
AUTHOR
Eric W. Weisstein, Nov 12 2003
STATUS
approved