A015687 Expansion of e.g.f. theta_3^(-11/2).

1, -11, 143, -2145, 36201, -675675, 13777335, -304008705, 7204902705, -182276917515, 4897582264575, -139156370978625, 4165687398497625, -130958825020098075, 4311426211189071975, -148272233495263502625

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

• Charles R Greathouse IV, Table of n, a(n) for n = 0..427

Crossrefs

Cf. A000122, A015671.

Programs

Mathematica

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

PARI

default(seriesprecision,16)
th3=1+Ser(sum(i=1,sqrtint(default(seriesprecision)),2*'x^i^2))
Vec(serlaplace(th3^(-11/2))) \\ Charles R Greathouse IV, Aug 17 2017