|
Search: id:A074979
|
|
|
| A074979 |
|
Primes for which the two closest primes are smaller. |
|
+0
8
|
|
| 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; listen)
|
|
|
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 this_sequence A102833 A136078 A142303
Adjacent sequences: A074976 A074977 A074978 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
