%I
%S 1,2,3,4,49,161,182,511,721,959,1169,1631,1841,2191,3199,3409,3521,
%T 4319,4529,5089,5201,5761,5999,6209,6559,6671,6769,6881,7231,7441,
%U 7679,8351,8561,9121,9569,10031,10129,10801,11249,11599,12271,12481,12929,13391
%N Numbers k such that Fib(k) == 13 (mod k).
%t Join[{1,2,3,4},Select[Range[13400],Mod[Fibonacci[#],#]==#13&]] (* _Harvey P. Dale_, Apr 30 2020 *)
%K nonn
%O 1,2
%A _David W. Wilson_
