cp's OEIS Frontend

A155464 a(n) = 7*a(n-1) - 7*a(n-2) + a(n-3) for n > 2; a(0) = 0, a(1) = 51, a(2) = 340.

%I A155464 #16 Sep 08 2022 08:45:40
%S A155464 0,51,340,2023,11832,69003,402220,2344351,13663920,79639203,464171332,
%T A155464 2705388823,15768161640,91903581051,535653324700,3122016367183,
%U A155464 18196444878432,106056652903443,618143472542260,3602804182350151
%N A155464 a(n) = 7*a(n-1) - 7*a(n-2) + a(n-3) for n > 2; a(0) = 0, a(1) = 51, a(2) = 340.
%C A155464 lim_{n -> infinity} a(n+1)/a(n) = 3+2*sqrt(2).
%H A155464 Harvey P. Dale, <a href="/A155464/b155464.txt">Table of n, a(n) for n = 0..1000</a>
%H A155464 <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (7,-7,1).
%F A155464 a(n) = 6*a(n-1) - a(n-2) + 34 for n > 1; a(0) = 0, a(1) = 51.
%F A155464 a(n) = ((1+sqrt(2))*(3+2*sqrt(2))^n + (1-sqrt(2))*(3-2*sqrt(2))^n -2)*(17/4).
%F A155464 G.f.: 17*x*(3-x)/((1-x)*(1-6*x+x^2)).
%F A155464 a(n) = 17*(A002203(2*n+1) - 2)/4. - _G. C. Greubel_, Aug 21 2018
%t A155464 LinearRecurrence[{7,-7,1},{0,51,340},30] (* _Harvey P. Dale_, Jun 10 2013 *)
%t A155464 Table[17*(LucasL[2*n+1,2] - 2)/4, {n, 0, 50}] (* _G. C. Greubel_, Aug 21 2018 *)
%o A155464 (PARI) {m=20; v=concat([0, 51, 340], vector(m-3)); for(n=4, m, v[n]=7*v[n-1]-7*v[n-2]+v[n-3]); v}
%o A155464 (Magma) I:=[0,51,340]; [n le 3 select I[n] else 7*Self(n-1) - 7*Self(n-2) + Self(n-3): n in [1..30]]; // _G. C. Greubel_, Aug 21 2018
%Y A155464 First trisection of A118120. Equals 17*A001652.
%Y A155464 Cf. A155465, A155466, A156035 (decimal expansion of 3+2*sqrt(2)).
%K A155464 nonn,easy
%O A155464 0,2
%A A155464 _Klaus Brockhaus_, Jan 30 2009
%E A155464 Comment and recursion formula added, cross-references edited by _Klaus Brockhaus_, Sep 23 2009