|
Search: id:A113298
|
|
|
| A113298 |
|
Expansion of q^(1/12) * eta(q^10)^5 / ( eta(q^2) * eta(q^5)^2 * eta(q^20)^2) in powers of q. |
|
+0
1
|
|
| 1, 0, 1, 0, 2, 2, 3, 2, 5, 4, 7, 6, 11, 10, 15, 14, 22, 22, 30, 30, 44, 44, 58, 60, 81, 84, 107, 112, 145, 154, 190, 202, 253, 270, 327, 352, 429, 462, 550, 594, 711, 770, 904, 980, 1156, 1256, 1457, 1586, 1845, 2008, 2310, 2516, 2898, 3160, 3604, 3930, 4488, 4894
(list; graph; listen)
|
|
|
OFFSET
|
0,5
|
|
|
FORMULA
|
Euler transform of period 20 sequence [0, 1, 0, 1, 2, 1, 0, 1, 0, -2, 0, 1, 0, 1, 2, 1, 0, 1, 0, 0, ...].
Expansion of phi(q^5) / f(-q^2) in powers of q where phi(), f() are Ramanujan theta functions.
Expansion of G(x) * G(x^4) - x * H(x) * H(x^4) where G() = g.f. A003114 and H() = g.f. A003106 are the Rogers-Ramanujan functions.
G.f.: (1 + 2 * Sum_{k>0} x^(5*k^2)) / (Product_{k>0} (1 - x^(2*k))).
|
|
EXAMPLE
|
1/q + q^23 + 2*q^47 + 2*q^59 + 3*q^71 + 2*q^83 + 5*q^95 + 4*q^107 + ...
|
|
PROGRAM
|
(PARI) {a(n) = local(A); if( n<0, 0, A = x * O(x^n); polcoeff( eta(x^10 + A)^5 / eta(x^2 + A) / eta(x^5 + A)^2 / eta(x^20 + A)^2, n))}
|
|
CROSSREFS
|
Adjacent sequences: A113295 A113296 A113297 this_sequence A113299 A113300 A113301
Sequence in context: A073311 A003974 A065769 this_sequence A058705 A090794 A050323
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Michael Somos, Oct 24 2005
|
|
|
Search completed in 0.002 seconds
|
