login
A023905
Theta series of A_14 lattice.
0
1, 210, 8190, 102830, 570780, 2140866, 6527430, 16213080, 36584730, 73035900, 139912500, 243455940, 417269580, 664812330, 1050179130, 1567036926, 2347625490, 3315827970, 4752128290, 6479581290, 8930870676, 11796130710, 15862692300, 20336924790
OFFSET
0,2
REFERENCES
J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 110.
LINKS
MATHEMATICA
terms = 20; f[q_] = LatticeData["A14", "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: A087977 A185042 A323963 * A035840 A140904 A092711
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