|
Search: id:A023188
|
|
|
| A023188 |
|
Lonely (or isolated) primes: least prime of distance n from nearest prime (n = 1 or even). |
|
+0
17
|
|
| 2, 5, 23, 53, 409, 293, 211, 1847, 3137, 2179, 3967, 23719, 16033, 40387, 44417, 24281, 158699, 220973, 172933, 321509, 38501, 58831, 203713, 268343, 206699, 829399, 824339, 413353, 2280767, 2305549, 3253631, 1272749, 2401807, 2844833, 3021241
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; a = Table[0, {35}]; p = 2; q = 3; k = 1; Do[r = NextPrim[q]; m = Min[r - q, q - p]/2; If[m < 35 && a[[m]] == 0, a[[m]] = q]; p = q; q = r, {n, 1, 235000}]
|
|
CROSSREFS
|
Related sequences: A023186-A023188, A046929-A046931, A051650, A051652, A051697-A051702, A051728-A051730.
Adjacent sequences: A023185 A023186 A023187 this_sequence A023189 A023190 A023191
Sequence in context: A100031 A126975 A023186 this_sequence A106858 A100299 A038833
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
David W. Wilson (davidwwilson(AT)comcast.net)
|
|
|
Search completed in 0.002 seconds
|
