|
Search: id:A134340
|
|
|
| A134340 |
|
Expansion of q^(-5/6) * eta(q^2)^8 * eta(q^3)^3 / eta(q)^5 in powers of q. |
|
+0
3
|
|
| 1, 5, 12, 22, 35, 50, 70, 92, 117, 145, 170, 210, 250, 287, 330, 362, 425, 477, 532, 600, 626, 715, 782, 850, 925, 962, 1100, 1162, 1247, 1335, 1370, 1520, 1617, 1750, 1810, 1850, 2040, 2147, 2262, 2380, 2451, 2625, 2752, 2882, 3015, 3005, 3290, 3500, 3577
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
FORMULA
|
Euler transform of period 6 sequence [ 5, -3, 2, -3, 5, -6, ...].
|
|
EXAMPLE
|
q^5 + 5*q^11 + 12*q^17 + 22*q^23 + 35*q^29 + 50*q^35 + 70*q^41 + ...
|
|
PROGRAM
|
(PARI) {a(n) = if( n<0, 0, n = 6*n + 5; sumdiv(n, d, d^2 * kronecker( -3, d)) / -24 )}
(PARI) {a(n) = local(A); if( n<0, 0, A = x * O(x^n); polcoeff( eta(x^2 + A)^8 * eta(x^3 + A)^3 / eta(x + A)^5, n))}
|
|
CROSSREFS
|
A109041(6*n+5) = 216 * a(n). A103440(6*n+5) = -24 * a(n).
Sequence in context: A038794 A131976 A074376 this_sequence A000326 A022795 A025734
Adjacent sequences: A134337 A134338 A134339 this_sequence A134341 A134342 A134343
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Michael Somos, Oct 21 2007
|
|
|
Search completed in 0.002 seconds
|
