|
%I
%S 1,-1,2,0,0,4,-2,5,3,0,12,0,12,16,5,35,18,36,64,40,110,105,135,240,
%T 216,384,472,560,905,999,1458,1960,2368,3500,4302,5805,7947,9936,
%U 13860,17920,23588,32096,41229,55755,73570,96460,129920,169680,226206,300369
%N Expansion of 1/(1 + x - x^2 - 3 x^3 - x^4 + x^5 + x^6).
%H <a href="/index/Rec">Index entries for linear recurrences with constant coefficients</a>, signature (-1,1,3,1,-1,-1).
%F G.f.: 1/((x^3-x-1)*(x^3+x^2-1)). [_Colin Barker_, Nov 04 2012]
%t f[x_] = x^3 - x - 1; g[x] = ExpandAll[ -f[x]*x^3*f[1/x]]; a = Table[SeriesCoefficient[Series[1/g[x], {x, 0, 50}], n], {n, 0, 50}]
%t LinearRecurrence[{-1,1,3,1,-1,-1},{1,-1,2,0,0,4},60] (* _Harvey P. Dale_, Sep 23 2020 *)
%K sign,easy
%O 0,3
%A _Roger L. Bagula_, Nov 08 2008
%E Edited by _Joerg Arndt_ and _Colin Barker_, Nov 04 2012
|
