A023167 Numbers k such that Fib(k) == -13 (mod k).

1, 2, 3, 4, 49, 161, 182, 511, 721, 959, 1169, 1631, 1841, 2191, 3199, 3409, 3521, 4319, 4529, 5089, 5201, 5761, 5999, 6209, 6559, 6671, 6769, 6881, 7231, 7441, 7679, 8351, 8561, 9121, 9569, 10031, 10129, 10801, 11249, 11599, 12271, 12481, 12929, 13391

Offset

1,2

Links

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

Mathematica

Join[{1, 2, 3, 4}, Select[Range[13400], Mod[Fibonacci[#], #]==#-13&]] (* Harvey P. Dale, Apr 30 2020 *)

Crossrefs

Sequence in context: A270478 A235495 A257482 * A177380 A282034 A096782

Adjacent sequences: A023164 A023165 A023166 * A023168 A023169 A023170

Keyword

nonn

Author

David W. Wilson

Status

approved