|
Search: id:A093065
|
|
|
| A093065 |
|
Expansion of (eta(q^3)eta(q^15)/(eta(q)eta(q^5)))^2 in powers of q. |
|
+0
1
|
|
| 1, 2, 5, 8, 16, 28, 48, 78, 124, 194, 302, 454, 682, 996, 1457, 2096, 2993, 4226, 5920, 8228, 11373, 15580, 21246, 28740, 38731, 51872, 69155, 91716, 121105, 159208, 208512, 271894, 353338, 457336, 590124, 758792, 972677, 1242896, 1583576
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Euler transform of period 15 sequence [2,2,0,2,4,0,2,2,0,4,2,0,2,2,0,...].
|
|
FORMULA
|
G.f. A(x) satisfies 0=f(A(x), A(x^2)) where f(u, v)=u^3+v^3-4uv(u+v)-9u^2v^2-uv.
|
|
PROGRAM
|
(PARI) {a(n)=local(A); if(n<1, 0, n--; A=x*O(x^n); polcoeff((eta(x^3+A)*eta(x^15+A)/eta(x+A)/eta(x^5+A))^2, n))}
(PARI) {a(n)=local(A, u, v); if(n<0, 0, A=x; for(k=2, n, u=A+x*O(x^k); v=subst(u, x, x^2); A-=x^k*polcoeff(u^3+v^3-4*u*v*(u+v)-9*u^2*v^2-u*v, k+2)/2); polcoeff(A, n))}
|
|
CROSSREFS
|
Sequence in context: A129299 A096541 A137685 this_sequence A026007 A032233 A026530
Adjacent sequences: A093062 A093063 A093064 this_sequence A093066 A093067 A093068
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Michael Somos, Mar 17 2004
|
|
|
Search completed in 0.002 seconds
|
