OFFSET
0,2
COMMENTS
REFERENCES
Steven Vajda, Fibonacci and Lucas Numbers, and the Golden Section: Theory and Applications, Dover Publications (2008), page 29 (the formula 20b, for h=-k, gives the identity in Comments section).
LINKS
Colin Barker, Table of n, a(n) for n = 0..1000
Ron Knott, Fibonacci and Lucas Numbers (see 31st formula: the identity in the Comments section is the case i=-k).
Eric Weisstein's World of Mathematics, Lucas Number (see the formula n. 5).
Index entries for linear recurrences with constant coefficients, signature (2,2,-1).
FORMULA
G.f.: (-1 + 8*x - 6*x^2)/((1 + x)*(1 - 3*x + x^2)).
a(n) = a(-n) = 2*a(n-1) + 2*a(n-2) - a(n-3).
a(n) = L(2*n) - 3*(-1)^n.
Sum_{i=0..n} a(i) = L(2*n+1) - (3*(-1)^n + 1)/2.
a(n) = 2^(-n)*(-3*(-2)^n + (3-sqrt(5))^n + (3+sqrt(5))^n). - Colin Barker, Sep 21 2017
From Peter Bala, Oct 14 2019: (Start)
Sum_{n >= 1} L(n)/a(n) = 3/2.
Sum_{n >= 1} (-1)^n*L(n)/a(n) = 1/2. (End)
From Amiram Eldar, Oct 06 2020: (Start)
Sum_{n>=1} 1/a(n) = 1/2.
Sum_{n>=1} (-1)^n/a(n) = 7/10 - 2*phi/5, where phi is the golden ratio (A001622). (End)
MAPLE
A292696:=proc(n) option remember:
if n=0 then -1 elif n=1 then 6 elif n=2 then 4 elif n>=3 then 2*procname(n-1)+2*procname(n-2)-procname(n-3) fi; end:
seq(A292696(n), n=0..10^2); # Muniru A Asiru, Oct 03 2017
MATHEMATICA
Table[LucasL[n]^2 - 5 (-1)^n, {n, 0, 40}]
LinearRecurrence[{2, 2, -1}, {-1, 6, 4}, 40] (* Harvey P. Dale, Oct 02 2018 *)
PROG
(Sage) [lucas(n)^2-5*(-1)^n for n in range(40)]
(Magma) [Lucas(n)^2-5*(-1)^n: n in [0..40]];
(PARI) Vec(-(1 - 8*x + 6*x^2) / ((1 + x)*(1 - 3*x + x^2)) + O(x^30)) \\ Colin Barker, Sep 21 2017
(GAP)
a:=[-1, 6, 4];; for n in [4..10^3] do a[n]:= 2*a[n-1]+2*a[n-2]-a[n-3]; od; A292696:=a; # Muniru A Asiru, Oct 03 2017
CROSSREFS
KEYWORD
sign,easy
AUTHOR
Bruno Berselli, Sep 21 2017
STATUS
approved