|
| |
|
|
A146163
|
|
Expansion of q^(-3/4) * eta(q^2)^2 * eta(q^20) / (eta(q)^2 * eta(q^4)) in powers of q.
|
|
2
| |
|
|
1, 2, 3, 6, 10, 16, 25, 38, 57, 84, 121, 172, 243, 338, 465, 636, 862, 1158, 1546, 2050, 2701, 3540, 4613, 5980, 7719, 9916, 12682, 16158, 20506, 25926, 32667, 41022, 51348, 64080, 79730, 98922, 122407, 151068, 185968, 228384, 279816, 342052
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
FORMULA
| Euler transform of period 20 sequence [ 2, 0, 2, 1, 2, 0, 2, 1, 2, 0, 2, 1, 2, 0, 2, 1, 2, 0, 2, 0, ...].
|
|
|
EXAMPLE
| q^3 + 2*q^7 + 3*q^11 + 6*q^15 + 10*q^19 + 16*q^23 + 25*q^27 + 38*q^31 + ...
|
|
|
PROG
| (PARI) {a(n) = local(A); if( n<0, 0, A = x * O(x^n); polcoeff( eta(x^2 + A)^2 * eta(x^20 + A) / (eta(x + A)^2 * eta(x^4 + A)), n))}
|
|
|
CROSSREFS
| A146162(4*n + 3) = a(n).
Sequence in context: A108062 A075623 A024801 * A101277 A201077 A023655
Adjacent sequences: A146160 A146161 A146162 * A146164 A146165 A146166
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Michael Somos, Oct 27 2008
|
| |
|
|
