A075038 Primes for which the six closest primes are smaller.

1327, 14563, 15683, 19609, 22307, 25471, 31397, 33647, 35617, 39251, 43801, 44293, 49559, 69263, 69499, 76003, 79699, 81569, 82073, 85853, 88681, 88819, 89689, 95819, 102701, 118931, 124367, 132547, 132763, 140009, 142993, 143833

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..2000

Example

The six closest primes to 1327 are 1321 (difference = 6), 1319 (difference = 8), 1307 (different = 20), 1303 (difference = 24), 1301 (difference =26) and 1297 (difference = 30). 1321, 1319, 1307, 1303, 1301 and 1297 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, 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, 13872}]
Select[Prime[Range[15000]], #-NextPrime[#, -6]<NextPrime[#]-#&] (* Harvey P. Dale, Nov 21 2019 *)

Crossrefs

Cf. A001223, A074979, A074982, A075030, A075037, A075043, A075050 and A075051.

Sequence in context: A075037 A134116 A122390 * A082889 A109568 A235234

Adjacent sequences: A075035 A075036 A075037 * A075039 A075040 A075041

Keyword

nonn

Author

Neil Fernandez, Oct 10 2002

Extensions

Edited by Robert G. Wilson v, Oct 11 2002

Status

approved