%I #20 Aug 29 2018 17:33:07
%S 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,21,31,32,33,34,35,36,
%T 37,69,73,74,75,76,77,78,79,80,181,191,443,445,1052,2701,2703,6455,
%U 6456,6457,6459,6460,6466,15928,15929,16055,40073,40078,40080,40081,40082,40083,40122
%N Numbers n such that prime(n) mod n <= 10.
%C a(96) > 5*10^6. - _Robert Israel_, Aug 29 2018
%H Giovanni Resta, <a href="/A022465/b022465.txt">Table of n, a(n) for n = 1..216</a> (first 95 terms from Robert Israel)
%p Res:= NULL; p:= 1; count:= 0:
%p for n from 1 while count < 80 do
%p p:= nextprime(p);
%p if p mod n <= 10 then count:=count+1; Res:= Res, n;
%p fi
%p od:
%p Res; # _Robert Israel_, Aug 29 2018
%t Select[Range[41000],Mod[Prime[#],#]<=10&] (* _Harvey P. Dale_, Aug 21 2011 *)
%Y Cf. A038624.
%K nonn
%O 1,2
%A _Clark Kimberling_
%E More terms from _David W. Wilson_
%E More terms from _Robert Israel_, Aug 29 2018
|