A022054 Theta series of D_23 lattice.

1, 1012, 141726, 6503112, 130905236, 1392036360, 9401213016, 47412641232, 192747766686, 663612939132, 2007831887432, 5456890474248, 13617909938952, 31527898462552, 68719323996224, 141662701280848, 279248601010324, 527242669347856, 961796734667878, 1695182770403416

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 = 16; f[q_] = LatticeData["D23", "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: A206191 A249987 A224920 * A107518 A073144 A131461

Adjacent sequences: A022051 A022052 A022053 * A022055 A022056 A022057

Keyword

nonn

Author

N. J. A. Sloane

Extensions

More terms from Seiichi Manyama, Oct 16 2018

Status

approved