|
%I #16 Sep 22 2021 16:45:45
%S 1,2,4,5,7,10,14,15,105,110,119,190,220,290,310,410,590,610,710,790,
%T 874,890,1010,1090,1310,1390,1490,1510,1790,1810,1910,1990,2110,2170,
%U 2290,2390,2410,2510,2690,2710,2726,2810,2860,3110,3310,3490,3590,3790,3890
%N Numbers k such that Fibonacci(k) == 55 (mod k).
%t Select[Range[3900],Mod[Fibonacci[#]-55,#]==0&] (* _Harvey P. Dale_, Sep 22 2021 *)
%Y Cf. A000045.
%K nonn
%O 1,2
%A _David W. Wilson_
|
