A089803 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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