OFFSET
1,1
COMMENTS
These are the n such that A113189(n)=0.
MATHEMATICA
lst={}; Do[i=0; While[i<n-2 && !PrimeQ[Fibonacci[n]-Fibonacci[i]], i++ ]; If[i==n-2, AppendTo[lst, n]], {n, 3, 220}]; lst
Select[Range[3, 200], AllTrue[Fibonacci[#]-Fibonacci[Range[0, #-3]], CompositeQ] &] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Nov 05 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Oct 17 2005
STATUS
approved