|
Search: id:A098098
|
|
| |
|
| 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; listen)
|
|
|
OFFSET
|
0,2
|
|
|
COMMENT
|
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
|
|
PROGRAM
|
(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: A130352 A082314 A094607 this_sequence A080785 A069797 A091893
Adjacent sequences: A098095 A098096 A098097 this_sequence A098099 A098100 A098101
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Vladeta Jovovic (vladeta(AT)Eunet.yu), Sep 14 2004
|
|
|
Search completed in 0.002 seconds
|
