login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A292696 a(n) = L(n)^2 - 5*(-1)^n = L(n+1)*L(n-1), where L = A000032. 1
-1, 6, 4, 21, 44, 126, 319, 846, 2204, 5781, 15124, 39606, 103679, 271446, 710644, 1860501, 4870844, 12752046, 33385279, 87403806, 228826124, 599074581, 1568397604, 4106118246, 10749957119, 28143753126, 73681302244, 192900153621, 505019158604, 1322157322206, 3461452807999 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,2

COMMENTS

This is the case k=1 of the identity L(n)^2 + 5*F(k)^2*(-1)^(n+k) = L(n+k)*L(n-k), where F = A000045. See also the comment in A292612.

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) = -A001654(n+1) + 8*A001654(n) - 6*A001654(n-1) with A001654(-1)=0.

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

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[Lucas[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 xrange(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

Cf. A000032, A001654, A292612.

Cf. A059929: Fibonacci(n+2)*Fibonacci(n).

Sequence in context: A213573 A321417 A185734 * A318209 A120462 A236602

Adjacent sequences:  A292693 A292694 A292695 * A292697 A292698 A292699

KEYWORD

sign,easy

AUTHOR

Bruno Berselli, Sep 21 2017

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 22 18:06 EST 2019. Contains 319365 sequences. (Running on oeis4.)