login
Numbers k such that Fibonacci(k) == 55 (mod k).
0

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