A022061 Theta series of D_30 lattice.

1, 1740, 438540, 38099040, 1521151500, 32592806520, 420775407200, 3655476494400, 23690038522380, 123233778584940, 538518903906552, 2045337982427040, 6914885182908000, 21207036616238520, 59847918853661760, 157231420280219584, 388094025605841420, 906869192637613080

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 = 14; f[q_] = LatticeData["D30", "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: A251802 A251324 A184666 * A107525 A185942 A090837

Adjacent sequences: A022058 A022059 A022060 * A022062 A022063 A022064

Keyword

nonn,easy

Author

N. J. A. Sloane

Extensions

More terms from Seiichi Manyama, Oct 16 2018

Status

approved