login
A023167
Numbers k such that Fib(k) == -13 (mod k).
0
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
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
KEYWORD
nonn
STATUS
approved