OFFSET
1,2
MATHEMATICA
lst={}; Do[If[Mod[(Fibonacci[n-3]), n]==0, If[Mod[n, 3]!=0, AppendTo[lst, n]]], {n, 5*8!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 03 2009
EXTENSIONS
Definition reworded by R. J. Mathar, Apr 05 2009
STATUS
approved