%I #8 Aug 01 2015 10:18:34
%S 1037,1157,20737,250973,854813,1055617,4042469,8588477
%N Odd terms in A159051.
%t lst={};Do[If[Mod[(Fibonacci[n-2]),n]==0,If[OddQ[n],AppendTo[lst,n]]],{n,3*8!}];lst
%t 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 *)
%Y Cf. A123976, A159051.
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Apr 03 2009
%E a(4) - a(8) from _Robert G. Wilson v_, Apr 05 2009
%E Edited by _N. J. A. Sloane_, Apr 06 2009
%E Erroneous term 1 deleted by _N. J. A. Sloane_, Dec 20 2014
|