OFFSET
1,3
MATHEMATICA
f[n_]:=Fibonacci[n]/n; lst={}; Do[If[IntegerQ[f[n]], AppendTo[lst, f[n]]], {n, 6!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Nov 10 2009
STATUS
approved