A023910 Theta series of A_19 lattice.

1, 380, 29070, 782040, 9438440, 62953992, 293878320, 1095681360, 3397527180, 9278730940, 22633815436, 51077966760, 106592778180, 211336265080, 395232580440, 713167271184, 1229503440980, 2066616183960, 3346158684430, 5318821052280, 8194315251672, 12453539176080

Offset

0,2

References

J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 110.

Links

Table of n, a(n) for n=0..21.

Mathematica

terms = 18; f[q_] = LatticeData["A19", "ThetaSeriesFunction"][-I*Log[q]/Pi]; s = f[q] + O[q]^(2 terms); Partition[CoefficientList[s, q] // Round, 2][[All, 1]][[1 ;; terms]] (* Jean-François Alcover, Jul 06 2017 *)

Crossrefs

Cf. A023902.

Sequence in context: A188307 A214145 A185493 * A035845 A028682 A222163

Adjacent sequences: A023907 A023908 A023909 * A023911 A023912 A023913

Keyword

nonn

Author

N. J. A. Sloane

Extensions

More terms from Robert.Harley(AT)inria.fr, see A023902.

More terms from Sean A. Irvine, Jun 12 2019

Status

approved