|
Search: id:A098613
|
|
|
| A098613 |
|
Expansion of q^(-5/24)eta(q^4)^2/(eta(q)eta(q^2)) in powers of q. |
|
+0
2
|
|
| 1, 1, 3, 4, 7, 10, 17, 23, 35, 48, 69, 93, 131, 173, 236, 310, 413, 536, 704, 903, 1170, 1489, 1904, 2403, 3044, 3811, 4784, 5951, 7409, 9157, 11325, 13912, 17095, 20891, 25519, 31029, 37708, 45632, 55184, 66495, 80050, 96064, 115173, 137680, 164425
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
COMMENT
|
Euler transform of period 4 sequence [1,2,1,0,...].
G.f. A(x) is limit of x^(n^2+n)P_{2n+1}(1/x)/2 where P_n(q) = Sum_{k=0..n} C(n,k;q) and C(n,k;q) is q-binomial coefficients.
|
|
FORMULA
|
G.f.: (Sum_{k>0} x^(k^2-k))/(Product_{k>0} (1-x^k)).
|
|
PROGRAM
|
(PARI) a(n)= if(n<0, 0, polcoeff( sum(k=0, (sqrtint(4*n+1)-1)\2, x^(k^2+k))/eta(x+x*O(x^n)), n))
(PARI) a(n)= local(A); if(n<0, 0, A=x*O(x^n); polcoeff( eta(x^4+A)^2/(eta(x+A)*eta(x^2+A)), n))
(PARI) a(n)= if(n<0, 0, polcoeff( sum(k=0, 2*n+1, prod(i=1, k, (1-x^(2*n+2-i))/(1-x^i)))/2, n^2))
|
|
CROSSREFS
|
Sequence in context: A147955 A134591 A058611 this_sequence A143607 A032715 A002887
Adjacent sequences: A098610 A098611 A098612 this_sequence A098614 A098615 A098616
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Michael Somos, Sep 17 2004
|
|
|
Search completed in 0.002 seconds
|
