A094409 Odd numbers k that divide Fibonacci(k) - 1 but not Fibonacci(k-1).

323, 6479, 7743, 11663, 18407, 19043, 23407, 27071, 34943, 35207, 39203, 44099, 47519, 51983, 53663, 54839, 65471, 72831, 78089, 79547, 82983, 86063, 94667, 104663, 109871, 121103, 139359, 142883, 157079, 168299, 195227, 196559

Offset

1,1

Links

Giovanni Resta, Table of n, a(n) for n = 1..1000

Mathematica

Select[Range[50000], OddQ[ # ] && Mod[Fibonacci[ # ] - 1, # ] == 0 && ! Mod[Fibonacci[ # - 1], # ] == 0 &]

Crossrefs

Cf. A069106, A094394, A094410.

Sequence in context: A094394 A296973 A213289 * A253708 A210056 A202984

Adjacent sequences: A094406 A094407 A094408 * A094410 A094411 A094412

Keyword

nonn

Author

Eric Rowland, May 01 2004

Extensions

Offset corrected by Giovanni Resta, Jul 20 2013

Status

approved