OFFSET
1,2
MATHEMATICA
Select[ Range[ 3100], Mod[ Mod[ Fibonacci[ #], #] + 55 - #, #] == 0 &] (* Harvey P. Dale, Jan 20 2012, modified by Robert G. Wilson v Sep 04 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved