login
Numbers k such that Fib(k) == 8 (mod k).
0

%I #17 Sep 21 2021 15:01:35

%S 1,3,6,54,174,246,366,534,606,654,894,966,1086,1374,1446,1614,1686,

%T 2046,2094,2214,2334,2406,2454,2526,2694,2766,3054,3126,3246,3414,

%U 3606,3846,3966,4206,4254,4566,4614,4854,4926,4974,5286,5382,5406,5574,5646,6054

%N Numbers k such that Fib(k) == 8 (mod k).

%t Select[Range[6100], Mod[Fibonacci[#] - 8, #]==0&] (* Harvey P. Dale, Sep 21 2021 *)

%K nonn

%O 1,2

%A _David W. Wilson_

%E Definition clarified by _N. J. A. Sloane_, Sep 21 2021