login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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

Table of n, a(n) for n=0..17.

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

Sequence in context: A268994 A277532 A341556 * A260582 A035118 A017788

Adjacent sequences:  A014701 A014702 A014703 * A014705 A014706 A014707

KEYWORD

nonn

AUTHOR

N. J. A. Sloane

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 18 19:57 EDT 2021. Contains 345121 sequences. (Running on oeis4.)