%I #29 Sep 18 2024 10:37:14
%S -1,0,1,0,-2,-1,3,3,-4,-7,4,14,-1,-25,-9,40,33,-56,-82,63,171,-37,
%T -316,-71,524,350,-769,-945,943,2064,-767,-3952,-354,6783,3539,-10381,
%U -10676,13625,24596,-13330,-48897,2359,86823,33208,-138079,-117672,191694
%N a(0)=-1, a(1)=0, a(2)=1, a(n) = a(n-1) - 2*a(n-2) + a(n-3).
%D Martin Gardner, Mathematical Circus, Random House, New York, 1981, p. 165.
%H Michael De Vlieger, <a href="/A141576/b141576.txt">Table of n, a(n) for n = 0..1000</a>
%H <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (1,-2,1).
%F From _R. J. Mathar_, Aug 25 2008: (Start)
%F O.g.f.: -(1-x+x^2)/(1-x+2*x^2-x^3).
%F a(n) = A078019(n-2), n > 0. (End)
%F a(n) = -A000931(-2*n + 3). - _Michael Somos_, Sep 18 2012
%e G.f. = -1 + x^2 - 2*x^4 - x^5 + 3*x^6 + 3*x^7 - 4*x^8 - 7*x^9 + ...
%t Nest[Append[#, #[[-1]] - 2 #[[-2]] + #[[-3]]] &, {-1, 0, 1}, 44] (* _Michael De Vlieger_, Dec 17 2017 *)
%t LinearRecurrence[{1,-2,1},{-1,0,1},50] (* _Harvey P. Dale_, Feb 06 2024 *)
%o (MATLAB)
%o function y=fib(n)
%o %Generates difference sequence
%o fz(1)=-1; fz(2)=0; fz(3)=1;
%o for k=4:n
%o fz(k)=fz(k-1)-2*fz(k-2)+fz(k-3);
%o end
%o y=fz(n);
%o (PARI) x='x+O('x^99); Vec((1-x+x^2)/(-1+x-2*x^2+x^3)) \\ _Altug Alkan_, Dec 17 2017
%o (Magma)
%o I:=[-1,0,1]; [n le 3 select I[n] else Self(n-1) -2*Self(n-2) +Self(n-3): n in [1..50]]; // _G. C. Greubel_, Sep 16 2024
%o (SageMath)
%o def A141576_list(prec):
%o P.<x> = PowerSeriesRing(ZZ, prec)
%o return P( -(1-x+x^2)/(1-x+2*x^2-x^3) ).list()
%o A141576_list(50) # _G. C. Greubel_, Sep 16 2024
%Y Cf. A000931, A078019, A141577.
%K sign,easy
%O 0,5
%A Matt Wynne (mattwyn(AT)verizon.net), Aug 18 2008
%E Extended by _R. J. Mathar_, Aug 25 2008