OFFSET
1,1
COMMENTS
All numbers in this sequence are congruent to 1 mod 10.
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
L. Carlitz, Problem B-185, Elementary Problems and Solutions, The Fibonacci Quarterly, Vol. 8, No. 3 (1970), p. 325; Lucas Ratio I, Solution to Problem B-185 by C. B. A. Peck, ibid., Vol. 9, No. 1 (1971), p. 109.
L. Carlitz, Problem B-186, Elementary Problems and Solutions, The Fibonacci Quarterly, Vol. 8, No. 3 (1970), p. 326; Lucas Ratio II, Solution to Problem B-186 by John Wessner, ibid., Vol. 9, No. 1 (1971), pp. 109-110.
Index entries for linear recurrences with constant coefficients, signature (5,15,-15,-5,1).
FORMULA
From R. J. Mathar, Oct 22 2010: (Start)
a(n) = 5*a(n-1) + 15*a(n-2) - 15*a(n-3) - 5*a(n-4) + a(n-5).
G.f.: -x*(11-14*x-29*x^2+6*x^3+x^4)/( (x-1)*(x^2-7*x+1)*(x^2+3*x+1) ).
From Amiram Eldar, Feb 02 2022: (Start)
a(n) = Lucas(2*n)^2 - (-1)^n*Lucas(2*n) - 1 (Carlitz, Problem B-185).
a(n) = (Lucas(2*n) - 3*(-1)^n)^2 + (-1)^n*(5*Fibonacci(n))^2 (Carlitz, Problem B-186). (End)
a(n) = a(-n) = 1 + 10*A085695(n) = 5 + L(n-1)*L(n)^2*L(n+1) for all n in Z. - Michael Somos, Apr 23 2022
MATHEMATICA
Table[LucasL[5*n]/LucasL[n], {n, 1, 50}]
CoefficientList[Series[x*(11-14*x-29*x^2+6*x^3+x^4)/((1-x)*(x^2-7*x+1)*(x^2+3*x+1)), {x, 0, 50}], x] (* G. C. Greubel, Dec 21 2017 *)
a[ n_] := 1 + 5*Fibonacci[n]*Fibonacci[3*n]; (* Michael Somos, Apr 23 2022 *)
PROG
(PARI) {L(n)=fibonacci(n-1)+fibonacci(n+1)}; a(n) = L(5*n)/L(n) \\ Charles R Greathouse IV, Jun 11 2015
(PARI) my(x='x+O('x^30)); Vec(x*(11-14*x-29*x^2+6*x^3+x^4 )/((1-x)*(x^2-7*x +1)*(x^2+3*x+1))) \\ G. C. Greubel, Dec 21 2017
(PARI) {a(n) = 1 + 5*fibonacci(n)*fibonacci(3*n)}; /* Michael Somos, Apr 23 2022 */
(Magma) I:=[11, 41, 341, 2161, 15251]; [n le 5 select I[n] else 5*Self(n-1)+15*Self(n-2)-15*Self(n-3)-5*Self(n-4)+Self(n-5): n in [1..30]]; // G. C. Greubel, Dec 21 2017
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Artur Jasinski, Dec 20 2008
STATUS
approved