|
|
A138184
|
|
Largest prime not exceeding Fibonacci(n) = A000045(n).
|
|
3
|
|
|
2, 3, 5, 7, 13, 19, 31, 53, 89, 139, 233, 373, 607, 983, 1597, 2579, 4177, 6763, 10939, 17707, 28657, 46351, 75017, 121379, 196387, 317797, 514229, 832003, 1346249, 2178283, 3524569, 5702867, 9227443, 14930341, 24157811, 39088157, 63245971
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
3,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
a(8) = 19 because 19 is the largest prime not exceeding 21 = A000045(8).
|
|
MAPLE
|
|
|
MATHEMATICA
|
PrimePrev[n_]:=Module[{k=n}, While[ !PrimeQ[k], k-- ]; k]; f[n_]:=Fibonacci[n]; lst={}; Do[AppendTo[lst, PrimePrev[f[n]]], {n, 5!}]; lst (* Vladimir Joseph Stephan Orlovsky, Feb 26 2010 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|