|
%I #20 Sep 08 2022 08:45:01
%S 1,11,32,85,223,584,1529,4003,10480,27437,71831,188056,492337,1288955,
%T 3374528,8834629,23129359,60553448,158530985,415039507,1086587536,
%U 2844723101,7447581767,19498022200,51046484833,133641432299
%N a(n) = 3*a(n-1) - a(n-2) with a(0)=1, a(1)=11.
%H G. C. Greubel, <a href="/A056123/b056123.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 (3,-1).
%F a(n) = {11*[((3+sqrt(5))/2)^n - ((3-sqrt(5))/2)^n] - [((3+sqrt(5))/2)^(n-1) - ((3-sqrt(5))/2)^(n-1)]}/sqrt(5).
%F G.f.: (1+8*x)/(1-3*x+x^2).
%F a(n) = 6*Lucas(2n+1) - Fibonacci(2n+5).
%F From _G. C. Greubel_, Jan 17 2020: (Start)
%F a(n) = Fibonacci(2*n+2) + 8*Fibonacci(2*n).
%F E.g.f.: exp(3*t/2)*( cosh(sqrt(5)*t/2) + (19/sqrt(5))*sinh(sqrt(5)*t/2) ). (End)
%p with(combinat); seq( fiboacci(2*n+2) +8*fibonacci(2*n), n=0..30); # _G. C. Greubel_, Jan 17 2020
%t Table[Fibonacci[2*n+2] +8*Fibonacci[2*n], {n,0,30}] (* _G. C. Greubel_, Jan 17 2020 *)
%o (PARI) vector(31, n, fibonacci(2*n) +8*fibonacci(2*n-2) ) \\ _G. C. Greubel_, Jan 17 2020
%o (Magma) [Fibonacci(2*n+2) +8*Fibonacci(2*n): n in [0..30]]; // _G. C. Greubel_, Jan 17 2020
%o (Sage) [fibonacci(2*n+2) +8*fibonacci(2*n) for n in (0..30)] # _G. C. Greubel_, Jan 17 2020
%o (GAP) List([0..30], n-> Fibonacci(2*n+2) +8*Fibonacci(2*n) ); # _G. C. Greubel_, Jan 17 2020
%Y Cf. A000032, A000045, A055850.
%K easy,nonn
%O 0,2
%A _Barry E. Williams_, Jul 06 2000
| 