login
A138058
Prime numbers, isolated from neighboring primes by +- 100 (or more).
0
72546283, 77736383, 85706813, 98486567, 102765683, 104525387, 112219883, 116034509, 117611743, 134937037, 135393509, 142414669, 148261577, 159460277, 162551173, 162821917, 163146593, 163175267, 163710121, 172005979, 172341509, 177110701, 178924853, 180882917, 184731763, 193648669, 198779683, 202630171, 204020153, 211140343, 216542089, 221090173, 226770241
OFFSET
1,1
MATHEMATICA
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]
Select[Partition[Prime[Range[12500000]], 3, 1], #[[3]]-#[[2]]>98&&#[[2]] - #[[1]]>98&][[All, 2]] (* Harvey P. Dale, Sep 23 2017 *)
CROSSREFS
Sequence in context: A198782 A104942 A104849 * A022228 A032431 A186535
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms Vladimir Joseph Stephan Orlovsky, Jan 24 2009
Corrected by Harvey P. Dale, Sep 23 2017
STATUS
approved