|
Search: id:A123630
|
|
|
| A123630 |
|
Expansion of q*(chi(-q^3)*chi(-q^5))/(chi(-q)*chi(-q^15))^2 in powers of q where chi() is a Ramanujan theta function. |
|
+0
3
|
|
| 1, 2, 3, 5, 7, 10, 14, 20, 27, 36, 48, 63, 82, 106, 137, 175, 222, 280, 352, 439, 546, 676, 834, 1024, 1253, 1528, 1857, 2250, 2718, 3276, 3936, 4718, 5640, 6728, 8006, 9507, 11266, 13324, 15726, 18526, 21786, 25574, 29970, 35064, 40961, 47774, 55638
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
FORMULA
|
Euler transform of period 30 sequence [ 2, 0, 1, 0, 1, 0, 2, 0, 1, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 1, 0, 2, 0, 1, 0, 1, 0, 2, 0, ...].
G.f. A(x) satisfies 0=f(A(x), A(x^2)) where f(u, v)=u^2 -v -u*v(4 +2*v).
|
|
PROGRAM
|
(PARI) {a(n)=local(A); if(n<1, 0, n--; A=x*O(x^n); polcoeff( eta(x^2+A)^2*eta(x^3+A)*eta(x^5+A)*eta(x^30+A)^2/ (eta(x+A)^2*eta(x^6+A)*eta(x^10+A)*eta(x^15+A)^2), n))}
|
|
CROSSREFS
|
A094023(n)=a(n) if n>0.
Adjacent sequences: A123627 A123628 A123629 this_sequence A123631 A123632 A123633
Sequence in context: A023893 A065094 A094023 this_sequence A035967 A097797 A035975
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Michael Somos, Oct 03 2006
|
|
|
Search completed in 0.002 seconds
|
