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

%I #21 Jul 24 2021 06:04:25

%S 1,2,3,5,10,20,70,110,116,130,170,230,285,322,370,430,470,494,530,555,

%T 620,670,730,770,830,970,1030,1070,1130,1270,1334,1370,1570,1630,1670,

%U 1730,1930,1970,2230,2270,2330,2530,2570,2630,2770,2830,2870,2930,3070

%N Numbers k such that Fibonacci(k) == -55 (mod k).

%t Select[ Range[ 3100], Mod[ Mod[ Fibonacci[ #], #] + 55 - #, #] == 0 &] (* _Harvey P. Dale_, Jan 20 2012, modified by _Robert G. Wilson v_ Sep 04 2013 *)

%Y Cf. A000045.

%K nonn

%O 1,2

%A _David W. Wilson_