A023174 Numbers k such that Fibonacci(k) == 2 (mod k).

1, 3, 6, 77, 93, 123, 143, 213, 237, 267, 453, 483, 573, 597, 627, 717, 723, 813, 843, 933, 1077, 1203, 1227, 1293, 1317, 1347, 1437, 1517, 1563, 1707, 1763, 1797, 1803, 1893, 1923, 2157, 2253, 2283, 2307, 2427, 2517, 2643, 2691, 2733, 2757, 2787, 2973, 3021

Offset

1,2

Links

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

Mathematica

Select[Range[3100], Mod[Fibonacci[#]-2, #]==0&] (* Harvey P. Dale, Sep 22 2021 *)

Prog

(PARI) is(n)=((Mod([1, 1; 1, 0], n))^n)[1, 2]==2 \\ Charles R Greathouse IV, Oct 28 2014

Crossrefs

Cf. A000045.

Sequence in context: A205081 A282175 A182966 * A350992 A213138 A364798

Adjacent sequences: A023171 A023172 A023173 * A023175 A023176 A023177

Keyword

nonn

Author

David W. Wilson

Status

approved