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

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

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