|
Search: id:A098693
|
|
|
| A098693 |
|
G.f.: q*Product_{k>0} (1-q^(12k))(1+q^(12k-1))(1+q^(12k-11))/(1-q^k). |
|
+0
2
|
|
| 1, 2, 3, 5, 8, 12, 18, 26, 37, 52, 72, 99, 134, 180, 240, 317, 416, 542, 702, 904, 1158, 1476, 1872, 2364, 2973, 3724, 4647, 5778, 7160, 8844, 10890, 13370, 16368, 19984, 24336, 29561, 35822, 43308, 52242, 62884, 75536, 90552, 108342, 129384, 154232
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Coefficients of a q-series of Andrews inspired by Ramanujan.
|
|
LINKS
|
G. E. Andrews, Three aspects of partitions
|
|
FORMULA
|
Euler transform of period 24 sequence [ 2, 0, 1, 1, 1, 1, 1, 1, 1, 1, 2, 0, 2, 1, 1, 1, 1, 1, 1, 1, 1, 0, 2, 0, ...]. - Michael Somos Sep 19 2006
Given g.f. A(x), then B(x)=A(x)+A(x)^2 satisfies 0=f(B(x), B(x^2)) where f(u, v)=(1+6*u)*v*(1+2*v)-u^2 . - Michael Somos Sep 19 2006
G.f.: q*{Sum_{k} q^(24k^2+10k) +q^(24k^2+14k+1) }/{Sum_{k} (-1)^k q^((3k^2+k)/2) }. - Michael Somos Sep 19 2006
G.f.: q*Product_{k>0} (1-q^(12k))(1+q^(12k-1))(1+q^(12k-11))/(1-q^k).
G.f.: Sum_{k>0} Prod[i=1..k, (1+q^i)^2]*(1+q^k)*q^(k^2) /{(1-q)(1-q^2)...(1-q^(2k))}.
|
|
PROGRAM
|
(PARI) {a(n)=if(n<0, 0, polcoeff( sum(k=1, sqrtint(n), x^k^2/(1+x^k)* prod(i=1, k, (1+x^i)^2/(1-x^(2*i-1))/(1-x^(2*i)), 1+x*O(x^(n-k^2)))), n))} /* Michael Somos Sep 19 2006 */
|
|
CROSSREFS
|
Cf. A036018.
Sequence in context: A121946 A058984 A084376 this_sequence A122928 A001524 A136275
Adjacent sequences: A098690 A098691 A098692 this_sequence A098694 A098695 A098696
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Ralf Stephan, Sep 21 2004
|
|
|
Search completed in 0.002 seconds
|
