|
Search: id:A128770
|
|
|
| A128770 |
|
Expansion of phi(-q^9)/phi(-q) in powers of q where phi() is a Ramanujan theta function. |
|
+0
3
|
|
| 1, 2, 4, 8, 14, 24, 40, 64, 100, 152, 228, 336, 488, 700, 992, 1392, 1934, 2664, 3640, 4936, 6648, 8896, 11832, 15648, 20584, 26942, 35096, 45512, 58768, 75576, 96816, 123568, 157156, 199200, 251676, 316992, 398072, 498460, 622448, 775216, 963012
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
FORMULA
|
Expansion of eta(q^2)* eta(q^9)^2/( eta(q)^2* eta(q^18) ) in powers of q.
Euler transform of period 18 sequence [ 2, 1, 2, 1, 2, 1, 2, 1, 0, 1, 2, 1, 2, 1, 2, 1, 2, 0, ...].
G.f. A(x) satisfies 0= f(A(x), A(x^2)) where f(u, v)= (u-1)* (v^2-u) -2*u*v* (1-v).
G.f. A(x) satisfies 0= f(A(x), A(x^3)) where f(u, v)= (v-u)^3 -v*(3*u-1)* (1-v)* (1 -2*v +3*u*v).
G.f.: Product_{k>0} (1+x^k)* (1-x^(9k))/( (1-x^k)* (1+x^(9k)) ).
|
|
PROGRAM
|
(PARI) {a(n)= local(A); if(n<0, 0, A=x*O(x^oo); polcoeff( eta(x^2+A)* eta(x^9+A)^2/ eta(x+A)^2/ eta(x^18+A), n))}
|
|
CROSSREFS
|
Convolution inverse of A128771. 2*A128129(n)= a(n) if n>0.
Sequence in context: A091779 A090399 A069251 this_sequence A069252 A069253 A004402
Adjacent sequences: A128767 A128768 A128769 this_sequence A128771 A128772 A128773
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Michael Somos, Mar 27 2007
|
|
|
Search completed in 0.002 seconds
|
