|
%I #5 Sep 23 2017 16:38:20
%S 72546283,77736383,85706813,98486567,102765683,104525387,112219883,
%T 116034509,117611743,134937037,135393509,142414669,148261577,
%U 159460277,162551173,162821917,163146593,163175267,163710121,172005979,172341509,177110701,178924853,180882917,184731763,193648669,198779683,202630171,204020153,211140343,216542089,221090173,226770241
%N Prime numbers, isolated from neighboring primes by +- 100 (or more).
%t q=100;s="";For[i=1,i<10^7*2,p=Prime[i];a=0;For[j=2,j<=q,If[PrimeQ[p-j]||PrimeQ[p+j],a=1;Break[]];j=j+2];If[a==0,s=s<>ToString[p]<>","];i++ ];Print[s]
%t Select[Partition[Prime[Range[12500000]],3,1],#[[3]]-#[[2]]>98&&#[[2]] - #[[1]]>98&][[All,2]] (* _Harvey P. Dale_, Sep 23 2017 *)
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, May 02 2008
%E More terms _Vladimir Joseph Stephan Orlovsky_, Jan 24 2009
%E Corrected by _Harvey P. Dale_, Sep 23 2017
|
