OFFSET
0,4
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..1000
FORMULA
G.f.: (Sum_{i>0} (2*i-1)*x^(2*i-1)/(1-x^(2*i-1))-2*i*x^(2*i)/(1-x^(2*i))) / Product_{j>0} (1-x^j). - Alois P. Heinz, Mar 10 2012
MAPLE
b:= proc(n, i) option remember; local g, h;
if n=0 then [1, 0]
elif i<1 then [0, 0]
else g:= b(n, i-1);
h:= `if`(i>n, [0, 0], b(n-i, i));
[g[1]+h[1], g[2]+h[2] +h[1]*i*(2*(i mod 2)-1)]
fi
end:
a:= n-> b(n, n)[2]:
seq(a(n), n=0..60); # Alois P. Heinz, Mar 10 2012
MATHEMATICA
Map[Total[Select[#, OddQ]] - Total[Select[#, EvenQ]] &[Flatten[IntegerPartitions[#]]] &, -1 + Range[30]] (* Peter J. C. Moses, Mar 14 2014 *)
max = 60; s = Sum[x^(2i) (x^(2i) - 2i (x-1) - 1)/(x + x^(4i) - (x+1) x^(2i) ), {i, 1, Floor[max/2]}]/QPochhammer[x] + O[x]^max; CoefficientList[s, x] (* Jean-François Alcover, Aug 29 2016, after Alois P. Heinz *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Omar E. Pol, Mar 10 2012
EXTENSIONS
More terms from Alois P. Heinz, Mar 10 2012
STATUS
approved