login
A023904
Theta series of A_13 lattice.
0
1, 182, 6006, 62244, 290472, 996996, 2740738, 6362148, 13255242, 25357514, 45323278, 76444368, 123407466, 191916088, 287567280, 421168748, 601759340, 836876040, 1147564418, 1547518336, 2046646602, 2679112800, 3465409948, 4415226816, 5586066486
OFFSET
0,2
REFERENCES
J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 110.
MATHEMATICA
terms = 21; f[q_] = LatticeData["A13", "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: A186125 A209852 A321637 * A035839 A048546 A225712
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Robert.Harley(AT)inria.fr, see A023902.
More terms from Sean A. Irvine, Jun 12 2019
STATUS
approved