OFFSET
1,3
LINKS
Tyler Busby, Table of n, a(n) for n = 1..1452 (terms 1..1000 from Alois P. Heinz, derived from Kelly's data, terms 1001..1408 from Amiram Eldar)
Blair Kelly, Fibonacci and Lucas Factorizations
FORMULA
EXAMPLE
For n=82: F(82) = 2789*59369*370248451, so a(82)=2789.
MATHEMATICA
f[n_] := (FactorInteger@ Fibonacci@ n)[[1, 1]]; Array[f, 70] (* Robert G. Wilson v, Jul 07 2007 *)
PROG
(PARI) a(n) = if ((f=fibonacci(n))==1, 1, factor(f)[1, 1]); \\ Michel Marcus, Nov 15 2014
(Magma) [1, 1] cat [Minimum(PrimeDivisors(Fibonacci(n))): n in [3..70]]; // Vincenzo Librandi, Dec 25 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Apr 03 2001
EXTENSIONS
Better definition from Omar E. Pol, Apr 25 2008
STATUS
approved