|
%I #15 Oct 05 2015 09:16:15
%S 0,0,0,2,22,152,842,4084,18116,75408,299730,1152834,4338280,16126958,
%T 59713888,221713192,829301072,3132108250,11945717358,45938159040,
%U 177695375802,689616061412,2679197337100,10403108215760,40332521702522
%N Expansion of 2*x^4 / (1 - 11*x + 45*x^2 - 80*x^3 + 49*x^4).
%H <a href="/index/Rec">Index entries for linear recurrences with constant coefficients</a>, signature (11,-45,80,-49).
%t M = {{2, -1, 0, 0}, {-1, 3, -1, 0}, {0, -1, 3, 2}, {0, 0, -1, 3}}; v[1] = {0, 0, 0, 1}; v[n_] := v[n] = M.v[n - 1]; a1 = Table[v[n][[1]], {n, 1, 50}]
%t LinearRecurrence[{11,-45,80,-49},{0,0,0,2},30] (* _Harvey P. Dale_, Oct 05 2015 *)
%K nonn
%O 1,4
%A _Gary W. Adamson_ and _Roger L. Bagula_, Oct 28 2006
|
