|
Search: id:A100130
|
|
|
| A100130 |
|
Expansion of lambda(1-lambda)/16 in powers of q. |
|
+0
2
|
|
| 0, 1, -24, 300, -2624, 18126, -105504, 538296, -2471424, 10400997, -40674128, 149343012, -519045888, 1718732998, -5451292992, 16633756008, -49010118656, 139877936370, -387749049720, 1046413709980, -2754808758144, 7087483527072
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
COMMENT
|
Expansion of (eta(q)eta(q^4)/eta(q^2)^2)^24 in powers of q.
Euler transform of period 4 sequence [ -24,24,-24,0,...].
|
|
FORMULA
|
G.f. A(x) satisfies 0=f(A(x), A(x^2)) where f(u, v)=4096(uv)^4 +(uv)^2(1791 +2352(u+v) -10496uv) -uv(1 -48(u+v) +96(u^2+v^2)) +u^3+v^3.
G.f.: x*(Prod_{k>0} (1+(-x)^k))^24.
|
|
PROGRAM
|
(PARI) a(n)=polcoeff(x*prod(k=1, n, 1+(-x)^k, 1+x*O(x^n))^24, n)
(PARI) a(n)=local(A); if(n<1, 0, n--; A=x*O(x^n); polcoeff( (eta(x+A)*eta(x^4+A)/eta(x^2+A)^2)^24, n))
|
|
CROSSREFS
|
a(n)=(-1)^n*A014103(n).
Sequence in context: A056290 A056285 A010976 this_sequence A014103 A000552 A125436
Adjacent sequences: A100127 A100128 A100129 this_sequence A100131 A100132 A100133
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
Michael Somos, Nov 06 2004
|
|
|
Search completed in 0.002 seconds
|
