login
Least k such that prime(n+k) == k (mod n).
0

%I #3 Mar 30 2012 17:26:14

%S 1,1,2,2,2,6,7,1,7,11,8,11,3,8,11,3,13,15,3,7,3,8,16,3,9,17,13,13,18,

%T 1,7,13,1,13,23,7,25,7,7,29,13,6,24,7,37,38,6,31,31,23,33,6,24,33,44,

%U 24,35,25,4,46,25,26,47,2,3,27,49,37,50,37,1,63,39,41,41,55,69,43,69,27,71

%N Least k such that prime(n+k) == k (mod n).

%t bb={};Do[Do[If[k==Mod[Prime[n+k], n], bb=Append[bb, k];Goto[ne]];Label[ne], {k, n-1}], {n, 150}];bb

%K nonn

%O 1,3

%A _Zak Seidov_, Apr 30 2005