|
| |
|
|
A098098
|
|
sigma(6*n+5)/6.
|
|
5
| |
|
|
1, 2, 3, 4, 5, 8, 7, 8, 9, 10, 14, 12, 16, 14, 15, 20, 17, 18, 19, 24, 26, 22, 23, 28, 25, 32, 32, 28, 29, 30, 38, 32, 33, 40, 40, 44, 42, 38, 39, 40, 57, 42, 43, 44, 45, 62, 47, 56, 49, 56, 62, 52, 53, 60, 64, 68, 64, 58, 59, 60, 74, 72, 70, 64, 65, 80, 67, 76, 80, 70, 93, 72
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
COMMENTS
| Euler transform of period 6 sequence [2,0,0,0,2,-4,...].
Expansion of q^(-5/6)(eta(q)^-1*eta(q^2)eta(q^3)eta(q^6))^2 in powers of q. - Michael Somos, Sep 16 2004
|
|
|
FORMULA
| G.f.: (Product_{k>0} (1+x^k)(1-x^(3k))(1-x^(6k)))^2 . - Michael Somos, Sep 16 2004
|
|
|
PROG
| (PARI) a(n)=if(n<0, 0, sigma(6*n+5)/6)
(PARI) a(n)=local(A); if(n<0, 0, A=x^n*O(x); polcoeff( (eta(x^2+A)*eta(x^3+A)*eta(x^6+A)/eta(x+A))^2, n)) /* Michael Somos, Sep 16 2004 */
|
|
|
CROSSREFS
| Cf. A000203, A033686, A097723.
Sequence in context: A082314 A156552 A094607 * A080785 A069797 A158979
Adjacent sequences: A098095 A098096 A098097 * A098099 A098100 A098101
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Vladeta Jovovic (vladeta(AT)eunet.rs), Sep 14 2004
|
| |
|
|
