

A079677


Distance from F(n) to closest prime, where F(n) is the nth Fibonacci number.


3



2, 1, 1, 0, 0, 0, 1, 0, 2, 3, 2, 0, 5, 0, 2, 3, 4, 0, 5, 4, 2, 3, 2, 0, 13, 4, 10, 11, 14, 0, 23, 4, 4, 9, 10, 14, 11, 6, 12, 3, 2, 6, 7, 0, 16, 9, 24, 0, 5, 20, 18, 23, 14, 6, 9, 12, 10, 21, 4, 30, 13, 38, 4, 7, 16, 12, 19, 36, 22, 31, 4, 32, 11, 12, 60, 7, 2, 6, 27, 12, 62, 25, 20, 0, 19, 78, 6
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,1


LINKS

T. D. Noe, Table of n, a(n) for n = 0..1000


MATHEMATICA

Table[f = Fibonacci[n]; If[PrimeQ[f], 0, Min[f  NextPrime[f, 1], NextPrime[f]  f]], {n, 0, 100}] (* _T. D. Noe, May 02 2012 *)


PROG

(PARI) a(s)=min(abs(precprime(fibonacci(s))fibonacci(s)), abs(nextprime(fibonacci(s))fibonacci(s)))


CROSSREFS

Cf. A051699, A000045.
Sequence in context: A167687 A064692 A286106 * A286564 A316359 A080080
Adjacent sequences: A079674 A079675 A079676 * A079678 A079679 A079680


KEYWORD

nonn


AUTHOR

Benoit Cloitre, Jan 26 2003


STATUS

approved



