The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A008428 Theta series of D_6 lattice. 3
 1, 60, 252, 544, 1020, 1560, 2080, 3264, 4092, 4380, 6552, 8160, 8224, 10200, 12480, 14144, 16380, 17400, 18396, 24480, 26520, 23040, 31200, 35904, 32800, 39060, 42840, 44608, 49344, 50520, 54080, 65280, 65532, 57600, 73080, 84864, 74460, 82200, 93600, 92480 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,2 COMMENTS Ramanujan theta functions: f(q) (see A121373), phi(q) (A000122), psi(q) (A010054), chi(q) (A000700). REFERENCES J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 118. LINKS G. C. Greubel, Table of n, a(n) for n = 0..1000 G. Nebe and N. J. A. Sloane, Home page for this lattice Michael Somos, Introduction to Ramanujan theta functions Eric Weisstein's World of Mathematics, Ramanujan Theta Functions FORMULA G.f.: (theta_3(q^(1/2))^6 + theta_4(q^(1/2))^6)/2 Expansion of ( phi(q)^6 + phi(-q)^6 ) / 2 in powers of q^2 where phi() is a Ramanujan theta function. - Michael Somos, Sep 14 2007 a(n) = A000141(2*n). G.f. is a period 1 Fourier series that satisfies f(-1 / (8 t)) = 12 (t/i)^3 g(t) where q = exp(2 Pi i t) and g() is the g.f. for A008425. - Michael Somos, Aug 26 2015 EXAMPLE G.f. = 1 + 60*x + 252*x^2 + 544*x^3 + 1020*x^4 + 1560*x^5 + 2080*x^6 + ... G.f. = 1 + 60*q^2 + 252*q^4 + 544*q^6 + 1020*q^8 + 1560*q^10 + 2080*q^12 + ... MATHEMATICA a[ n_] := SeriesCoefficient[ EllipticTheta[ 3, 0, x]^6, {x, 0, 2 n}]; (* Michael Somos, Aug 26 2015 *) PROG (PARI) {a(n) = if( n<1, n==0, 4 * sumdiv(n, d, d^2 * (16 * kronecker(-4, n/d) - kronecker(-4, d))))}; /* Michael Somos, Nov 03 2006 */ (PARI) {a(n) = if( n<0, 0, n*=2; polcoeff( sum(k=1, sqrtint(n), 2*x^k^2, 1 + x * O(x^n))^6, n))}; /* Michael Somos, Nov 03 2006 */ (Magma) A := Basis( ModularForms( Gamma1(8), 3), 80); A[1] + 60*A[3] + 252*A[5] + 544*A[7]; /* Michael Somos, Aug 26 2015 */ CROSSREFS Cf. A000141, A008425. Sequence in context: A019285 A261970 A206144 * A206232 A075295 A189542 Adjacent sequences: A008425 A008426 A008427 * A008429 A008430 A008431 KEYWORD nonn,easy AUTHOR STATUS approved

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

Last modified March 20 18:09 EDT 2023. Contains 361391 sequences. (Running on oeis4.)