|
%I #11 Apr 11 2022 12:23:14
%S 1,2,4,5,10,15,16,35,40,64,65,85,115,160,185,215,235,265,335,365,415,
%T 485,496,515,535,565,615,635,685,785,815,835,865,965,985,1115,1135,
%U 1165,1285,1315,1385,1415,1465,1535,1565,1585,1685,1735,1765,1835,1865,1915,1985
%N Numbers k such that Fibonacci(k) == -5 (mod k).
%t Join[{1,2,4},Select[Range[2000],Mod[Fibonacci[#],#]==#-5&]] (* _Harvey P. Dale_, Mar 15 2016 *)
%Y Cf. A000045.
%K nonn
%O 1,2
%A _David W. Wilson_
|
