|
| |
|
|
A074979
|
|
Primes for which the two closest primes are smaller.
|
|
7
| |
|
|
113, 139, 181, 199, 241, 283, 293, 317, 467, 509, 523, 577, 619, 661, 773, 829, 839, 863, 887, 953, 1021, 1039, 1069, 1129, 1237, 1307, 1327, 1381, 1459, 1499, 1583, 1627, 1637, 1669, 1699, 1759, 1789, 1879, 1913, 1951, 2003, 2039, 2089, 2113, 2143
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| The two closest primes to 113 are 109 (difference = 4) and 107 (difference = 6). Both 109 and 107 are smaller than 113, so 113 is in the list.
|
|
|
MATHEMATICA
| NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; ps = {0, 0, 0, 1}; Do[ps = Drop[ps, 1]; ps = Append[ps, NextPrim[ ps[[ -1]]]]; If[ ps[[ -1]] - ps[[ -2]] > ps[[ -2]] - ps[[1]], Print[ ps[[ -2]]]], {n, 1, 330}]
|
|
|
CROSSREFS
| Cf. A001223, A074982, A075030, A075037, A075038, A075043, A075050 and A075051.
Sequence in context: A139988 A140005 A124584 * A164920 A102833 A136078
Adjacent sequences: A074976 A074977 A074978 * A074980 A074981 A074982
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| N. Fernandez (primeness(AT)borve.org), Oct 10 2002
|
|
|
EXTENSIONS
| Edited by Robert G. Wilson v (rgwv(AT)rgwv.com), Oct 11 2002
|
| |
|
|
