|
%I #14 Feb 16 2020 13:33:28
%S 2,3,5,5,11,8,11,14,13,17,16,18,19,20,28,26,31,22,42,32,37,26,65,30,
%T 45,31,37,38,39,40,54,38,57,40,72,48,75,52,79,62,192,48,59,60,91,68,
%U 107,58,98,75,116,95,69,72,73,83,76,96,115,79,205,92,84,85,86,76,109,100
%N Smallest k > n such that n divides prime(k) - prime(n).
%H Ivan Neretin, <a href="/A071850/b071850.txt">Table of n, a(n) for n = 1..10000</a>
%t sk[n_]:=Module[{k=n+1,p=Prime[n]},While[!Divisible[Prime[k]-p,n],k++];k]; Array[sk,70] (* _Harvey P. Dale_, Feb 16 2020 *)
%o (PARI) for(n=1,100,s=1; while((prime(n+s)-prime(n))%n>0,s++); print1(n+s,","))
%K easy,nonn
%O 1,1
%A _Benoit Cloitre_, Jun 09 2002
|
