%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