%I #25 Sep 08 2022 08:44:46
%S 0,25,25,50,75,125,200,325,525,850,1375,2225,3600,5825,9425,15250,
%T 24675,39925,64600,104525,169125,273650,442775,716425,1159200,1875625,
%U 3034825,4910450,7945275,12855725,20801000,33656725,54457725,88114450,142572175,230686625
%N Fibonacci sequence beginning 0, 25.
%H G. C. Greubel, <a href="/A022359/b022359.txt">Table of n, a(n) for n = 0..1000</a>
%H Tanya Khovanova, <a href="http://www.tanyakhovanova.com/RecursiveSequences/RecursiveSequences.html">Recursive Sequences</a>
%H <a href="/index/Rec#order_02">Index entries for linear recurrences with constant coefficients</a>, signature (1,1).
%F G.f.: 25*x/(1 - x - x^2). - _Philippe Deléham_, Nov 20 2008
%F a{n) = (-25/2)*(Fibonacci(n) - Lucas(n)). - _Harvey P. Dale_, Nov 22 2012
%F a(n) = Lucas(n+5) + Lucas(n-5), with Lucas(-i) = (-1)^i*Lucas(i) for the negative indices. - _Bruno Berselli_, Dec 27 2016
%t LinearRecurrence[{1, 1}, {0, 25}, 30] (* or *) Table[(-25/2)(Fibonacci[n] - LucasL[n]), {n, 50}] (* _Harvey P. Dale_, Nov 22 2012 *)
%o (Magma) [Lucas(n+5)+Lucas(n-5): n in [0..40]]; // _Bruno Berselli_, Dec 27 2016
%o (PARI) for(n=0,50, print1(25*fibonacci(n), ", ")) \\ _G. C. Greubel_, Aug 26 2017
%K nonn,easy
%O 0,2
%A _N. J. A. Sloane_
|