A022049 Theta series of D_18 lattice.

1, 612, 48996, 1207680, 12573540, 73617480, 318102912, 1090632960, 3176573796, 8148505828, 18918517320, 40578145920, 81375600000, 154398101832, 279331331328, 484986858240, 812932819812, 1320330798792, 2085523894756, 3214498469760, 4845373383240, 7157876711424, 10386510802560

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..1000

Mathematica

terms = 18; f[q_] = LatticeData["D18", "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: A232417 A250997 A356643 * A107513 A151592 A292036

Adjacent sequences: A022046 A022047 A022048 * A022050 A022051 A022052

Keyword

nonn

Author

N. J. A. Sloane

Extensions

More terms from Seiichi Manyama, Oct 16 2018

Status

approved