|
| |
|
|
A138058
|
|
Prime numbers, isolated from neighboring primes by +- 100 (or more).
|
|
0
| |
|
|
72546283, 77736383, 85706813, 98486567, 102765683, 112219883, 117611743, 135393509, 142414669, 148261577, 162551173, 162821917, 163175267, 163710121, 172005979, 172341509, 177110701, 178924853, 204020153, 211140343, 226770241
(list; graph; refs; listen; history; internal format)
|
|
|
|
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]
|
|
|
CROSSREFS
| Sequence in context: A198782 A104942 A104849 * A022228 A032431 A186535
Adjacent sequences: A138055 A138056 A138057 * A138059 A138060 A138061
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Vladimir Orlovsky (4vladimir(AT)gmail.com), May 02 2008
|
|
|
EXTENSIONS
| More terms Vladimir Orlovsky (4vladimir(AT)gmail.com), Jan 24 2009
|
| |
|
|
