|
Search: id:A075037
|
|
|
| A075037 |
|
Primes for which the five closest primes are smaller. |
|
+0
8
|
|
| 1327, 3469, 9439, 12119, 13187, 14563, 15683, 15823, 19609, 21031, 21617, 22307, 22573, 23689, 25261, 25471, 29033, 29881, 31277, 31397, 32803, 33647, 34061, 35543, 35617, 38461, 39251, 40289, 40639, 42863, 43331, 43801, 44293, 45139
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
The five closest primes to 1327 are 1321 (difference = 6), 1319 (difference = 8), 1307 (different = 20), 1303 (difference = 24), and 1301 (difference =26). 1321, 1319, 1307, 1303, and 1301 are all smaller than 1327, so 1327 is in the list.
|
|
MATHEMATICA
|
NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; ps = {0, 0, 0, 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, 4922}]
|
|
CROSSREFS
|
Cf. A001223, A074979, A074982, A075030, A075038, A075043, A075050 and A075051.
Sequence in context: A139666 A020403 A015162 this_sequence A134116 A122390 A075038
Adjacent sequences: A075034 A075035 A075036 this_sequence A075038 A075039 A075040
|
|
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
|
