A022057 Theta series of D_26 lattice.

1, 1300, 239252, 14797120, 410468500, 6030043240, 54177864000, 343594659200, 1706685733012, 7010460268500, 24832297608040, 77924078814400, 221394909419840, 578472382307304, 1407681394953600, 3221568346322560, 6988918697572500, 14466438251512104

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["D26", "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: A135125 A204945 A204941 * A107521 A374803 A226144

Adjacent sequences: A022054 A022055 A022056 * A022058 A022059 A022060

Keyword

nonn

Author

N. J. A. Sloane

Extensions

More terms from Seiichi Manyama, Oct 16 2018

Status

approved