A022056 Theta series of D_25 lattice.

1, 1200, 202450, 11389600, 285385200, 3779134240, 30885301600, 181284196800, 842726826450, 3262594952400, 10968671291040, 32802221530400, 89267475949600, 223991253535200, 525491835433600, 1161295395893440, 2440508069871600, 4898380398568000, 9456583413620850, 17601674014456800

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 = 15; f[q_] = LatticeData["D25", "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: A234917 A167985 A237001 * A107520 A268877 A282015

Adjacent sequences: A022053 A022054 A022055 * A022057 A022058 A022059

Keyword

nonn

Author

N. J. A. Sloane

Extensions

More terms from Seiichi Manyama, Oct 16 2018

Status

approved