OFFSET
0,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 0..1000 (using Blair Kelly's data)
J. Brillhart, P. L. Montgomery and R. D. Silverman, Tables of Fibonacci and Lucas factorizations, Math. Comp. 50 (1988), 251-260, S1-S15. Math. Rev. 89h:11002.
Blair Kelly, Factorizations of first 1000 Lucas numbers.
FORMULA
MAPLE
A079451 := proc(n)
if n = 1 then
0;
else
end if;
end proc:
seq(A079451(n), n=0..30) ; # R. J. Mathar, Oct 26 2013
MATHEMATICA
Join[{2, 0}, f[n_]:=(FactorInteger@LucasL@n)[[-1, 1]]; Array[f, 60, 2]] (* Vincenzo Librandi, Dec 26 2016 *)
PROG
(PARI) a(n) = my(f = factor(fibonacci(n+1)+fibonacci(n-1))); if (om = #f~, f[om, 1], 0); \\ Michel Marcus, Oct 26 2013
(Magma) [2, 0] cat [Maximum(PrimeDivisors(Lucas(n))): n in [2..60]]; // Vincenzo Librandi, Dec 26 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Lekraj Beedassy, Jan 13 2003
EXTENSIONS
More terms from Michel Marcus, Oct 26 2013
STATUS
approved