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

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

Mathematica

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

Prog

(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

Crossrefs

Cf. A000122, A015671.

Sequence in context: A024140 A029529 A214098 * A051583 A225799 A027771

Adjacent sequences: A015684 A015685 A015686 * A015688 A015689 A015690

Keyword

sign

Author

N. J. A. Sloane

Status

approved