%I #26 May 05 2024 10:41:33
%S 1,4,9,17,30,51,85,140,229,373,606,983,1593,2580,4177,6761,10942,
%T 17707,28653,46364,75021,121389,196414,317807,514225,832036,1346265,
%U 2178305,3524574,5702883,9227461,14930348,24157813,39088165,63245982,102334151
%N a(n) = Fibonacci(n) - 4.
%C Partial sums of A071679. - _R. J. Mathar_, Oct 12 2010
%H Vincenzo Librandi, <a href="/A157728/b157728.txt">Table of n, a(n) for n = 5..287</a>
%H <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (2,0,-1).
%F From _R. J. Mathar_, Oct 12 2010: (Start)
%F a(n) = 2*a(n-1) - a(n-3).
%F G.f.: x^5*(1+x)^2/((x-1)*(x^2+x-1)). (End)
%t Fibonacci[Range[5,40]]-4 (* or *) LinearRecurrence[{2,0,-1},{1,4,9},40] (* _Harvey P. Dale_, Jan 17 2022 *)
%o (Magma) [ Fibonacci(n) - 4: n in [5..50] ]; // _Vincenzo Librandi_, Apr 24 2011
%o (Haskell)
%o a157728 = subtract 4 . a000045 -- _Reinhard Zumkeller_, Oct 31 2013
%o (PARI) a(n)=fibonacci(n) - 4 \\ _Charles R Greathouse IV_, Jun 11 2015
%Y Cf. A000045, A001611, A000071, A157725, A001911, A157726, A006327, A157727, A157728, A157729, A167616.
%K nonn,easy
%O 5,2
%A _N. J. A. Sloane_, Jun 26 2010