|
| |
|
|
A128663
|
|
Expansion of eta(q^3)* eta(q^33)/( eta(q)* eta(q^11)) in powers of q.
|
|
0
| |
|
|
1, 1, 2, 2, 4, 5, 7, 9, 13, 16, 22, 28, 37, 46, 59, 74, 94, 115, 144, 176, 218, 265, 326, 393, 479, 574, 695, 830, 996, 1184, 1414, 1673, 1988, 2344, 2770, 3254, 3828, 4482, 5252, 6126, 7153, 8318, 9678, 11222, 13018, 15050, 17405, 20068, 23145, 26621
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
FORMULA
| G.f. A(x) satisfies 0=f(A(x), A(x^2)) where f(u, v)= (u-v^2)* (u^2-v) -2*u*v* (u+v+u*v).
G.f. A(x) satisfies 0=f(A(x), A(x^3)) where f(u, v)= v -u^3 +3*u*v* (2*u +(1+v)* (1 +3*u*v)).
G.f.: x* Product_{k>0} (1-x^(3k))* (1-x^(33k))/( (1-x^k)* (1-x^(11k))).
|
|
|
PROG
| (PARI) {a(n)= local(A); if(n<1, 0, n--; A=x*O(x^n); polcoeff( eta(x^3+A)* eta(x^33+A)/ eta(x+A)/ eta(x^11+A), n))}
|
|
|
CROSSREFS
| Sequence in context: A058661 A094362 A000726 * A174068 A135833 A137200
Adjacent sequences: A128660 A128661 A128662 * A128664 A128665 A128666
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Michael Somos, Mar 19 2007
|
| |
|
|
