%I #25 Aug 26 2017 18:15:12
%S 0,18,18,36,54,90,144,234,378,612,990,1602,2592,4194,6786,10980,17766,
%T 28746,46512,75258,121770,197028,318798,515826,834624,1350450,2185074,
%U 3535524,5720598,9256122,14976720
%N Fibonacci sequence beginning 0, 18.
%H G. C. Greubel, <a href="/A022352/b022352.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.: 18*x/(1-x-x^2). - _Philippe Deléham_, Nov 20 2008
%F a(n) = 9*(Lucas(n) - Fibonacci(n)). - _Harvey P. Dale_, Oct 09 2013
%t a={};b=0;c=18;AppendTo[a, b];AppendTo[a, c];Do[b=b+c;AppendTo[a, b];c=b+c;AppendTo[a, c], {n, 4!}];a (* _Vladimir Joseph Stephan Orlovsky_, Sep 17 2008 *)
%t LinearRecurrence[{1,1},{0,18},40] (* or *) Table[9(LucasL[n]- Fibonacci[n]),{n,40}] (* _Harvey P. Dale_, Oct 09 2013 *)
%o (PARI) for(n=0,50, print1(18*fibonacci(n), ", ")) \\ _G. C. Greubel_, Aug 26 2017
%Y Cf. A258160.
%Y Cf. sequences with formula Fibonacci(n+k)+Fibonacci(n-k) listed in A280154.
%K nonn,easy
%O 0,2
%A _N. J. A. Sloane_
|