|
%I #14 Feb 15 2020 11:56:08
%S 4,13,42,136,440,1424,4609,14918,48285,156284,505844,1637264,5299328,
%T 17152321,55516872,179691313,581606398,1882483892,6093030640,
%U 19721296176,63831867233,206604436042,668716032329,2164431415224,7005609443656,22675037578848,73392234228496,237548450639617,768872442629260
%N Expansion of (4+x-x^2+x^3-x^4+x^5) / (1-3*x-x^2+x^3-x^4+x^5-x^6).
%C Coincides with the Pisot sequence A010900 just for n <= 23.
%H Vincenzo Librandi, <a href="/A274952/b274952.txt">Table of n, a(n) for n = 0..1000</a>
%H <a href="/index/Rec#order_06">Index entries for linear recurrences with constant coefficients</a>, signature (3,1,-1,1,-1,1).
%F Recurrence: a(n) = 3*a(n-1) + a(n-2) - a(n-3) + a(n-4) - a(n-5) + a(n-6).
%t CoefficientList[Series[(4 + x - x^2 + x^3 - x^4 + x^5) / (1 - 3 x - x^2 + x^3 - x^4 + x^5 - x^6), {x, 0, 40}], x] (* _Vincenzo Librandi_, Aug 18 2016 *)
%t LinearRecurrence[{3,1,-1,1,-1,1},{4,13,42,136,440,1424},40] (* _Harvey P. Dale_, Feb 15 2020 *)
%Y Cf. A008776, A010900.
%K nonn
%O 0,1
%A _N. J. A. Sloane_, Aug 07 2016
|
