A022051 Theta series of D_20 lattice.

1, 760, 77560, 2508000, 34729720, 259114704, 1327461600, 5341699520, 17701924600, 51294999960, 131880275664, 312126610080, 680432137440, 1404010658960, 2724593155520, 5089580732736, 9062110326520, 15699349246320, 26159307313560, 42719885410400, 67517852274384

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 = 17; f[q_] = LatticeData["D20", "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: A233879 A165629 A151633 * A107515 A151588 A141144

Adjacent sequences: A022048 A022049 A022050 * A022052 A022053 A022054

Keyword

nonn

Author

N. J. A. Sloane

Extensions

More terms from Seiichi Manyama, Oct 16 2018

Status

approved