OFFSET
1,2
MATHEMATICA
Join[{1, 2, 3, 4}, Select[Range[13400], Mod[Fibonacci[#], #]==#-13&]] (* Harvey P. Dale, Apr 30 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved