OFFSET
1,1
MATHEMATICA
lst={}; Do[If[Mod[(Fibonacci[n-2]), n]==0, If[OddQ[n], AppendTo[lst, n]]], {n, 3*8!}]; lst
a = c = 0; b = 1; lst = {}; Do[c = a + b; If[ Mod[a, n] == 0 && OddQ@n, Print@n]; a = b; b = c, {n, 2, 10^7}] (* Robert G. Wilson v, Apr 05 2009 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 03 2009
EXTENSIONS
a(4) - a(8) from Robert G. Wilson v, Apr 05 2009
Edited by N. J. A. Sloane, Apr 06 2009
Erroneous term 1 deleted by N. J. A. Sloane, Dec 20 2014
STATUS
approved