OFFSET
0,2
REFERENCES
J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 119.
LINKS
EXAMPLE
G.f. = 1 + 144*q + 8784*q^2 + 294336*q^3 + 5883984*q^4 + 71916768*q^5 + ... - Michael Somos, May 27 2022
MATHEMATICA
terms = 17; s = (1/2 (EllipticTheta[3, 0, q]^4 + EllipticTheta[4, 0, q]^4) )^6 + O[q]^(2 terms); CoefficientList[s, q^2] (* Jean-François Alcover, Jul 08 2017 *)
a[ n_] := With[{e1 = q*QPochhammer[q]^24, e2 = q^2*QPochhammer[q^2]^24}, SeriesCoefficient[(e1 + 64* e2)^3 / (e1* e2), {q, 0, n}]]; (* Michael Somos, May 27 2022 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
STATUS
approved