|
%I #8 Jun 09 2018 07:55:56
%S 1,-2,-2,0,6,8,0,4,-10,-50,-36,16,12,80,44,88,390,180,-94,-712,-1624,
%T -312,-688,1476,4444,-6954,-5812,3816,7728,36600,25708,-13308,-53586,
%U -127048,10104,120936,73490,157400,-395168,-529472,833888,265916,19300,-1132576
%N Expansion of Product_{k>=1} ((1 - k*x^k)/(1 + k*x^k)).
%H Vaclav Kotesovec, <a href="/A292317/b292317.txt">Table of n, a(n) for n = 0..1000</a>
%F Convolution of A022661 and A022693.
%F Convolution inverse of A265758.
%t nmax = 50; CoefficientList[Series[Product[(1 - k*x^k)/(1 + k*x^k), {k, 1, nmax}], {x, 0, nmax}], x] (* _Vaclav Kotesovec_, Jun 09 2018 *)
%Y Cf. A022661, A022693, A265758.
%K sign
%O 0,2
%A _Seiichi Manyama_, Sep 14 2017
|
