|
|
A014704
|
|
Expansion of ((theta_2)^4+(theta_3)^4)/(Delta_24)^2.
|
|
0
|
|
|
1, 72, 2400, 52576, 870732, 11739984, 134825216, 1359259200, 12290396058, 101268020984, 769721861376, 5449376818656, 36216000728200, 227395735413552, 1356190070338560, 7717657198319936, 42069113073665703, 220400042813587800
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
REFERENCES
|
J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 105.
|
|
LINKS
|
|
|
MATHEMATICA
|
s = (EllipticTheta[2, 0, q]^4 + EllipticTheta[3, 0, q]^4)/QPochhammer[q]^48 + O[q]^20; CoefficientList[s, q] (* Jean-François Alcover, Dec 03 2015 *)
|
|
PROG
|
(PARI) {a(n)=local(A); if(n<0, 0, A=x*O(x^n); polcoeff( sum(k=1, n, 24*sumdiv(k, d, d%2*d)*x^k, 1+A)/eta(x+A)^48, n))} /* Michael Somos, Feb 15 2006 */
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|