|
Search: id:A002448
|
|
|
| A002448 |
|
Expansion of Jacobi theta function theta_4(x). |
|
+0
9
|
|
| 1, -2, 0, 0, 2, 0, 0, 0, 0, -2, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, -2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
COMMENT
|
Euler transform of period 2 sequence [ -2,-1,...].
Expansion of eta(q)^2/eta(q^2) in powers of q.
|
|
REFERENCES
|
J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 103.
N. J. Fine, Basic Hypergeometric Series and Applications, Amer. Math. Soc., 1988; p. 93, Eq. (34.11).
E. T. Whittaker and G. N. Watson, A Course of Modern Analysis, Cambridge Univ. Press, 4th ed., 1963, p. 464.
|
|
LINKS
|
T. D. Noe, Table of n, a(n) for n=0..10000
Eric Weisstein's World of Mathematics, Jacobi Theta Functions
Eric Weisstein's World of Mathematics, q-Series Identities
|
|
FORMULA
|
G.f.: Sum_n (-1)^n*x^(n^2) = Product_{n>0} (1-x^n)/(1+x^n).
a(n)=-2*b(n) where b(n) is multiplicative and b(2^e) = (-1)^(e/2) if e even, b(p^e) = 1 if p>2 and e even, otherwise 0. - Michael Somos Jul 07 2006
a(3n+1)=-2*A089802(n), a(9n)=a(n). - Michael Somos Jul 07 2006
|
|
MAPLE
|
Sum((-x)^(m^2), m=-10..10);
|
|
PROGRAM
|
(PARI) a(n)=if(n<0, 0, (-1)^n*issquare(n)*2-(n==0))
(PARI) a(n)=local(X); if(n<0, 0, X=x+x*O(x^n); polcoeff(eta(X)^2/eta(X^2), n))
|
|
CROSSREFS
|
Cf. A000122.
Sequence in context: A128771 A139380 A000122 this_sequence A033759 A033755 A033753
Adjacent sequences: A002445 A002446 A002447 this_sequence A002449 A002450 A002451
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
N. J. A. Sloane (njas(AT)research.att.com).
|
|
|
Search completed in 0.002 seconds
|
