A159052 Odd terms in A159051.

1037, 1157, 20737, 250973, 854813, 1055617, 4042469, 8588477

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Apr 03 2009

Keywords

• nonn

Crossrefs

Cf. A123976, A159051.

Programs

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 *)

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