|
%I #10 Sep 08 2022 08:44:49
%S 1,7,26,73,174,373,743,1404,2552,4506,7784,13226,22193,36889,60882,
%T 99947,163430,266455,433495,704150,1142496,1852212,3001056,4860468,
%U 7869649,12739243,20619098,33369709,54001422,87385081
%N T(n,n+4), T given by A027960.
%H G. C. Greubel, <a href="/A027964/b027964.txt">Table of n, a(n) for n = 4..1000</a>
%H <a href="/index/Rec#order_06">Index entries for linear recurrences with constant coefficients</a>, signature (5,-9,6,1,-3,1).
%F G.f.: x^4*(1+2*x)/((1-x)^4*(1-x-x^2)). - _Ralf Stephan_, Feb 07 2004
%t Drop[CoefficientList[Series[x^4*(1+2*x)/((1-x)^4*(1-x-x^2)), {x,0,40}], x], 4] (* _G. C. Greubel_, Jun 29 2019 *)
%o (PARI) my(x='x+O('x^40)); Vec(x^4*(1+2*x)/((1-x)^4*(1-x-x^2))) \\ _G. C. Greubel_, Jun 29 2019
%o (Magma) R<x>:=PowerSeriesRing(Integers(), 40); Coefficients(R!( x^4*(1+2*x)/((1-x)^4*(1-x-x^2)) )); // _G. C. Greubel_, Jun 29 2019
%o (Sage) a=(x^4*(1+2*x)/((1-x)^4*(1-x-x^2))).series(x, 40).coefficients(x, sparse=False); a[4:] # _G. C. Greubel_, Jun 29 2019
%K nonn
%O 4,2
%A _Clark Kimberling_
|
