A015685 Expansion of e.g.f. theta_3^(-9/2).

1, -9, 99, -1287, 19089, -316305, 5772195, -114729615, 2462398785, -56674425465, 1390839617475, -36219350942775, 996780497137425, -28887911103276225, 878916406742849475, -27996927397669605375

Offset: 0

Author

N. J. A. Sloane

Keywords

• sign

References

• J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 102.

Links

• Seiichi Manyama, Table of n, a(n) for n = 0..429

Programs

Mathematica

nmax = 25; CoefficientList[Series[EllipticTheta[3, 0, x]^(-9/2), {x, 0, nmax}], x] * Range[0, nmax]! (* Vaclav Kotesovec, Oct 23 2018 *)