%I #19 Jul 02 2023 18:20:13
%S 4,30,190,1176,7252,44694,275422,1697232,10458820,64450158,397159774,
%T 2447408808,15081612628,92937084582,572704120126,3529161805344,
%U 21747674952196,134015211518526,825838944063358,5089048875898680
%N Expansion of 2*x*(x+2) / ((x-1)*(x^2+6*x-1)).
%H <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (7, -5, -1).
%F G.f.: 2*x*(x+2) / ((x-1)*(x^2+6*x-1)). [_Colin Barker_, Dec 02 2012]
%t LinearRecurrence[{7, -5, -1}, {4, 30, 190}, 22] (* _Hugo Pfoertner_, Dec 18 2022 *)
%o (PARI) (PARI) \\ Uses the empirical G.f.
%o a89154(nmax) = {my (v = Vec (serlaplace (2*x*(x+2) / ((x-1)*(x^2+6*x-1)) + O(x^nmax)))); for (k=1, nmax-1, print1(v[k]/k!, ", "))};
%o a89154(22) \\ _Hugo Pfoertner_, Dec 18 2022
%K nonn,easy,less
%O 1,1
%A _Roger L. Bagula_, Dec 06 2003
%E Edited and new name using g.f., _Joerg Arndt_, Dec 18 2022
|