A023903 Theta series of A_12 lattice.

1, 156, 4290, 36036, 141726, 449592, 1098812, 2417844, 4575714, 8556132, 13981110, 23250084, 34902582, 53549496, 75168522, 109953272, 146737890, 204766848, 265082246, 357073860, 447493332, 591649344, 720098808, 928421208, 1118340652, 1408153188

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

Mathematica

terms = 21; f[q_] = LatticeData["A12", "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

Sequence in context: A065699 A263290 A275766 * A240005 A035838 A035824

Adjacent sequences: A023900 A023901 A023902 * A023904 A023905 A023906

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