|
%I #5 Mar 05 2019 18:18:40
%S 1,1,-1,1,0,0,-2,2,1,0,-4,2,0,3,-3,5,-6,-1,-7,16,-3,7,-19,14,-14,11,
%T -23,32,-16,37,-38,32,-59,20,-47,101,-40,70,-122,79,-87,147,-108,119,
%U -270,116,-199,414,-49,353,-481,129,-687,428,-376,1003,-409,759,-1114
%N Expansion of Sum_{k>=0} x^(k^2) / Product_{j=1..k} (1 + x^j)^j.
%t nmax = 58; CoefficientList[Series[Sum[x^(k^2)/Product[(1 + x^j)^j, {j, 1, k}], {k, 0, nmax}], {x, 0, nmax}], x]
%Y Cf. A053256, A318771.
%K sign
%O 0,7
%A _Ilya Gutkovskiy_, Mar 05 2019
|
