A089811 Expansion of Jacobi theta function (3*theta_4(q^18) - theta_4(q^2))/2.

1, 0, 1, 0, 0, 0, 0, 0, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, -2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 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, 1, 0, 0, 0

Offset

0,19

Links

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

Eric Weisstein's World of Mathematics, Jacobi Theta Functions

I. J. Zucker, Further Relations Amongst Infinite Series and Products. II. The Evaluation of Three-Dimensional Lattice Sums, J. Phys. A: Math. Gen. 23, 117-132, 1990.

Mathematica

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

Crossrefs

Sequence in context: A089803 A354449 A349436 * A091888 A083928 A074038

Adjacent sequences: A089808 A089809 A089810 * A089812 A089813 A089814

Keyword

sign

Author

Eric W. Weisstein, Nov 12 2003

Status

approved