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
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Jan 26 2003
STATUS
approved