A022044 Theta series of D_13 lattice.

1, 312, 11466, 116688, 535704, 1899664, 5043376, 12066912, 24443978, 48210760, 83323344, 145532816, 227110416, 363737712, 531517376, 800145632, 1104376728, 1594656544, 2114015514, 2931991920, 3779027408, 5091783840, 6365016528, 8409556064, 10285042352, 13266026280, 15994749968

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

Mathematica

terms = 20; f[q_] = LatticeData["D13", "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: A233934 A289793 A364992 * A156403 A296527 A107508

Adjacent sequences: A022041 A022042 A022043 * A022045 A022046 A022047

Keyword

nonn

Author

N. J. A. Sloane

Extensions

More terms from Seiichi Manyama, Oct 16 2018

Status

approved