A022046 Theta series of D_15 lattice.

1, 420, 21870, 331240, 2128260, 8972712, 29822520, 80027280, 193511790, 409172940, 825736296, 1509537960, 2698852520, 4472616120, 7347537600, 11335886864, 17520853380, 25553816400, 37658603350, 52706867640, 74655559272, 100969845200, 138840872040, 182317633680

Offset

0,2

References

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

Links

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

Mathematica

terms = 20; f[q_] = LatticeData["D15", "ThetaSeriesFunction"][-I*Log[q]/Pi]; s = f[q] + O[q]^(2 terms); DeleteCases[CoefficientList[s, q], 0][[1 ;; terms]] (* Jean-François Alcover, Jul 06 2017 *)

Crossrefs

Sequence in context: A289226 A133712 A058834 * A289348 A107510 A023911

Adjacent sequences: A022043 A022044 A022045 * A022047 A022048 A022049

Keyword

nonn

Author

N. J. A. Sloane

Extensions

More terms from Seiichi Manyama, Oct 16 2018

Status

approved