login
This site is supported by donations to The OEIS Foundation.
Logo

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A023902 Theta series of A_11 lattice. 13
1, 132, 2970, 19800, 66462, 194832, 420684, 881760, 1511730, 2770284, 4134240, 6754968, 9491130, 14310120, 18773964, 27609648, 34253142, 47864520, 58862870, 78974808, 93470652 (list; graph; refs; listen; history; internal format)
OFFSET

0,2

REFERENCES

J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 110.

PROG

theta3(k, n, prec, f, m)=f=polcyclo(n); 1+sum(m=1, sqrtint(prec), Mod(x^(m*k%n)+x^(m*(n-k)%n), f)*q^sqr(m))+O(q^(prec+1))

aaa(n, prec, k, m)=sum(k=0, n-1, theta3(k, n, prec)^n)/n/(1+2*sum(m=1, sqrtint(floor(prec/n)), q^(n*sqr(m)))+O(q^(prec+1)))

doit(m, prec)=subst(lift(aaa(m+1, prec)), x, 0) gives theta series of A_m to order "prec"

CROSSREFS

Sequence in context: A119982 A129975 A064303 * A168180 A035837 A184893

Adjacent sequences:  A023899 A023900 A023901 * A023903 A023904 A023905

KEYWORD

nonn

AUTHOR

N. J. A. Sloane (njas(AT)research.att.com).

EXTENSIONS

PARI code from Robert.Harley(AT)inria.fr

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
Recent Additions | More pages | Superseeker | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .

Last modified February 14 13:08 EST 2012. Contains 205623 sequences.