OFFSET
1,2
MATHEMATICA
Join[{1, 2, 4}, Select[Range[2000], Mod[Fibonacci[#], #]==#-5&]] (* Harvey P. Dale, Mar 15 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved