A023167 - OEIS

%I #9 Sep 21 2021 13:54:32

%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_