|
%I #8 Nov 21 2018 18:18:08
%S 1,5,14,36,83,182,382,778,1546,3013,5778,10932,20447,37867,69526,
%T 126690,229309,412570,738308,1314824,2331218,4116731,7243092,12700680,
%U 22201165,38696513,67267550,116642832,201791063,348339614,600095386,1031830006
%N Expansion of ( -1-2*x+x^2+x^3 ) / (x^2+x-1)^3 .
%C Third column of A228815.
%H <a href="/index/Rec#order_06">Index entries for linear recurrences with constant coefficients</a>, signature (3,0,-5,0,3,1).
%F a(n) = A001628(n) +2*A001628(n-1) -A001628(n-2) -A001628(n-3).
%t CoefficientList[Series[(-1 - 2 x + x^2 + x^3)/(x^2 + x - 1)^3, {x, 0, 40}], x] (* or *) LinearRecurrence[{3,0,-5,0,3,1},{1,5,14,36,83,182},40] (* _Harvey P. Dale_, Nov 21 2018 *)
%Y Cf. A228815.
%K nonn,easy
%O 0,2
%A _R. J. Mathar_, Aug 08 2015
|
