|
|
A099059
|
|
The odd bisection of A000594.
|
|
2
|
|
|
1, 252, 4830, -16744, -113643, 534612, -577738, 1217160, -6905934, 10661420, -4219488, 18643272, -25499225, -73279080, 128406630, -52843168, 134722224, -80873520, -182213314, -145589976, 308120442, -17125708, -548895690, 2687348496, -1696965207, -1740295368, -1596055698
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
Expansion of (F(q) - F(-q)) / 2 = F(q) + 24*F(q^2) + 2048*F(q^4) in powers of q^2 where F() is the g.f. of A000594. - Michael Somos, Apr 17 2015
|
|
EXAMPLE
|
G.f. = 1 + 252*x + 4830*x^2 - 16744*x^3 - 113643*x^4 + 534612*x^5 + ...
G.f. = q + 252*q^3 + 4830*q^5 - 16744*q^7 - 113643*q^9 + 534612*q^11 + ...
|
|
MATHEMATICA
|
a[ n_] := SeriesCoefficient[ q QPochhammer[q]^24, {q, 0, 2 n + 1}]; (* Michael Somos, Apr 17 2015 *)
|
|
PROG
|
(PARI) {a(n) = if( n<0, 0, n = 2*n+1; polcoeff( x * eta(x + x * O(x^n))^24, n))}; /* Michael Somos, Apr 17 2015 */
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|