|
Search: id:A131044
|
|
|
| A131044 |
|
Expansion of q^(1/3) *(eta(q)/ eta(q^5))^2 in powers of q. |
|
+0
1
|
|
| 1, -2, -1, 2, 1, 4, -6, -2, 2, 0, 10, -14, -5, 8, 4, 20, -28, -10, 14, 4, 39, -56, -20, 28, 10, 72, -100, -34, 46, 16, 128, -176, -61, 86, 30, 216, -294, -100, 134, 44, 355, -484, -165, 226, 79, 568, -770, -260, 350, 116, 894, -1208, -408, 552, 188, 1376, -1848, -620, 830, 276, 2087, -2800, -940
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
FORMULA
|
Euler transform of period 5 sequence [ -2, -2, -2, -2, 0, ...].
G.f. A(x) satisfies 0 = f(A(x), A(x^2)) where f(u, v) = (u-v^2)* (v-u^2) +4*u*v.
|
|
PROGRAM
|
(PARI) {a(n)= local(A); if(n<0, 0, A= x*O(x^n); polcoeff( (eta(x+A)/ eta(x^5+A))^2, n))}
|
|
CROSSREFS
|
Sequence in context: A143591 A085063 A058511 this_sequence A106380 A076198 A032021
Adjacent sequences: A131041 A131042 A131043 this_sequence A131045 A131046 A131047
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
Michael Somos, Jun 11 2007
|
|
|
Search completed in 0.005 seconds
|
