A159052 Odd terms in A159051.

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

Offset

1,1

Links

Table of n, a(n) for n=1..8.

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

Cf. A123976, A159051.

Sequence in context: A043388 A184210 A163559 * A065572 A251876 A251869

Adjacent sequences: A159049 A159050 A159051 * A159053 A159054 A159055

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