%I
%S 1,2,4,76,124,196,244,316,374,436,556,604,724,796,844,916,964,1084,
%T 1324,1396,1516,1636,1684,1756,1768,1804,1996,2164,2284,2404,2476,
%U 2524,2644,2764,2836,2956,3004,3076,3244,3316,3436,3676,3964,4036,4084,4156,4204
%N Numbers k such that Fib(k) == 3 (mod k).
%t Select[Table[{p,Fibonacci[p]},{p,4500}],Mod[Last[#]3,First[#]]==0&][[All,1]] (* _Harvey P. Dale_, Sep 22 2021 *)
%K nonn
%O 1,2
%A _David W. Wilson_
