A022050 Theta series of D_19 lattice.

1, 684, 62054, 1759704, 21210156, 140116184, 658369608, 2449182384, 7597766246, 20748447108, 50601708504, 114223115480, 238352317656, 472600643976, 883678139136, 1594639240368, 2749536787500, 4620722631088, 7482364853310, 11894205734280, 18321074279384

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["D19", "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: A252856 A184089 A254071 * A107514 A116219 A232199

Adjacent sequences: A022047 A022048 A022049 * A022051 A022052 A022053

Keyword

nonn

Author

N. J. A. Sloane

Extensions

More terms from Seiichi Manyama, Oct 16 2018

Status

approved