%I #22 Oct 01 2021 18:35:01
%S 2,15,17,32,49,81,130,211,341,552,893,1445,2338,3783,6121,9904,16025,
%T 25929,41954,67883,109837,177720,287557,465277,752834,1218111,1970945,
%U 3189056,5160001,8349057,13509058,21858115,35367173,57225288,92592461,149817749
%N Fibonacci sequence beginning 2, 15.
%H Ivan Panchenko, <a href="/A022117/b022117.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.: (2+13*x)/(1-x-x^2). - _Philippe Deléham_, Nov 19 2008
%F a(n) = a(n-1) + a(n-2). - _Wesley Ivan Hurt_, Oct 01 2021
%t a={};b=2;c=15;AppendTo[a,b];AppendTo[a,c];Do[b=b+c;AppendTo[a,b];c=b+c;AppendTo[a,c],{n,1,40,1}];a (* _Vladimir Joseph Stephan Orlovsky_, Jul 23 2008 *)
%t Transpose[NestList[{#[[2]],#[[1]]+#[[2]]}&,{2,15},40]][[1]] (* _Harvey P. Dale_, Dec 16 2010 *)
%t CoefficientList[Series[(2 + 13 x)/(1 - x - x^2), {x, 0, 40}], x] (* _Wesley Ivan Hurt_, Jun 15 2014 *)
%K nonn,easy
%O 0,1
%A _N. J. A. Sloane_, Jun 14 1998
%E More terms from _Wesley Ivan Hurt_, Jun 15 2014
|