login
A008663
Theta series of direct sum of 2 copies of f.c.c. lattice.
1
1, 24, 156, 192, 636, 624, 1312, 1152, 2556, 1752, 4056, 2880, 5152, 4080, 7872, 4992, 10236, 6960, 11388, 8640, 16536, 9216, 19680, 12672, 20512, 15624, 26520, 15744, 30912, 20208, 34112, 23040
OFFSET
0,2
REFERENCES
J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 113.
MATHEMATICA
terms = 32; s = 1/4 (EllipticTheta[3, 0, q]^3 + EllipticTheta[4, 0, q]^3)^2 + O[q]^(2 terms); CoefficientList[s, q^2] (* Jean-François Alcover, Jul 07 2017, from LatticeData(fcc) *)
CROSSREFS
Sequence in context: A092181 A001702 A004308 * A277984 A125334 A126492
KEYWORD
nonn,easy
AUTHOR
STATUS
approved