cp's OEIS Frontend

A060926 Row sums of triangle A060923 (even part of bisection of Lucas triangle).

%I A060926 #6 Apr 09 2021 22:19:20
%S A060926 1,5,29,149,765,3941,20301,104565,538589,2774149,14289005,73599381,
%T A060926 379093501,1952623525,10057515149,51803949749,266830242845,
%U A060926 1374381274821,7079122173101,36462931836885
%N A060926 Row sums of triangle A060923 (even part of bisection of Lucas triangle).
%H A060926 G. C. Greubel, <a href="/A060926/b060926.txt">Table of n, a(n) for n = 0..1000</a>
%H A060926 <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (5,0,4).
%F A060926 a(n) = Sum_{j=0..n} A060923(n, j).
%F A060926 a(n) = A060928(n) + 4*A060928(n-2), n >= 2, otherwise A060928(n).
%F A060926 G.f.: (1+4*x^2)/(1-5*x-4*x^3).
%t A060926 LinearRecurrence[{5,0,4}, {1,5,29}, 31] (* _G. C. Greubel_, Apr 09 2021 *)
%o A060926 (Magma) I:=[1,5,29]; [n le 3 select I[n] else 5*Self(n-1) + 4*Self(n-3): n in [1..30]]; // _G. C. Greubel_, Apr 09 2021
%o A060926 (Sage)
%o A060926 def A060926_list(prec):
%o A060926     P.<x> = PowerSeriesRing(QQ, prec)
%o A060926     return P( (1+4*x^2)/(1-5*x-4*x^3) ).list()
%o A060926 A060926_list(30) # _G. C. Greubel_, Apr 09 2021
%Y A060926 Cf. A060927 (Row sums of A060924).
%K A060926 nonn,easy
%O A060926 0,2
%A A060926 _Wolfdieter Lang_, Apr 20 2001