OFFSET
3,2
COMMENTS
We exclude i=n-2 and i=n-1 because they yield Fibonacci(n-2) and Fibonacci(n-1), respectively. Sequence A113190 lists the n for which a(n)=0.
MATHEMATICA
Table[cnt=0; Do[If[PrimeQ[Fibonacci[n]-Fibonacci[i]], cnt++ ], {i, 0, n-3}]; cnt, {n, 3, 150}]
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Oct 17 2005
STATUS
approved