|
%I #19 Dec 18 2022 07:05:20
%S -2,3,0,0,0,0,0,0,-3,0,0,0,0,0,0,-4,3,0,0,0,0,0,0,-3,-3,0,0,0,0,0,-4,
%T 2,3,0,0,0,0,0,-3,-9,-3,0,0,0,0,-4,1,5,3,0,0,0,0,1,-15,-9,-3,0,0,0,-4,
%U 0,6,5,3,0,0,0,5,-20,-21,-12,-3,0,0,-4,-1,16
%N Expansion of (1 + 2*Product_{i>=1} (1 + x^(8*i - 1)))/(-1 + Product_{i>=1} (1 - x^(8*i - 1))).
%e -3/x^7 - 2 + 3*x -3*x^8 - 4*x^15 + 3*x^16 - 3*x^23 - 3*x^24 - 4*x^30 + ...
%t Table[SeriesCoefficient[
%t Series[(1 + 2*Product[1 + x^(8*i - 1), {i, 1, Infinity}])/(-1 +
%t Product[(1 - x^(8*i - 1)), {i, 1, Infinity}]), {x, 0, 100}],
%t n], {n, 0, 100}]
%Y Cf. A207944, A080054, A142724.
%K sign,less
%O 0,1
%A _Roger L. Bagula_, Feb 23 2012
|
