|
Search: id:A123632
|
|
|
| A123632 |
|
Expansion of q/(chi(-q)*chi(-q^3)*chi(-q^5)*chi(-q^15)) in powers of q where chi() is a Ramanujan theta function. |
|
+0
1
|
|
| 1, 1, 1, 3, 3, 5, 8, 9, 13, 19, 24, 31, 42, 52, 67, 91, 110, 137, 180, 217, 272, 344, 412, 509, 633, 762, 925, 1132, 1354, 1631, 1984, 2353, 2808, 3382, 3992, 4747, 5658, 6644, 7850, 9291, 10882, 12772, 15016, 17512, 20455, 23944, 27796, 32311, 37633, 43529
(list; graph; listen)
|
|
|
OFFSET
|
1,4
|
|
|
FORMULA
|
Euler transform of period 30 sequence [ 1, 0, 2, 0, 2, 0, 1, 0, 2, 0, 1, 0, 1, 0, 4, 0, 1, 0, 1, 0, 2, 0, 1, 0, 2, 0, 2, 0, 1, 0, ...].
G.f. A(x) satisfies 0=f(A(x), A(x^2)) where f(u, v)= u^2 -v -u*v*(2 + 4*v).
|
|
PROGRAM
|
(PARI) {a(n)=local(A); if(n<1, 0, n--; A=x*O(x^n); polcoeff( eta(x^2+A)*eta(x^6+A)*eta(x^10+A)*eta(x^30+A)/ (eta(x+A)*eta(x^3+A)*eta(x^5+A)*eta(x^15+A)), n))}
|
|
CROSSREFS
|
Sequence in context: A129758 A001588 A107029 this_sequence A039868 A015723 A116645
Adjacent sequences: A123629 A123630 A123631 this_sequence A123633 A123634 A123635
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Michael Somos, Oct 03 2006
|
|
|
Search completed in 0.002 seconds
|
