|
|
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}] [From Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 05 2009]
|
