A075030 Primes for which the four closest primes are smaller.
113, 1327, 2557, 2803, 2971, 3271, 3469, 4027, 4297, 4523, 5119, 5449, 5531, 5591, 7253, 7883, 8389, 9013, 9439, 9551, 10111, 10909, 11177, 11839, 12119, 12163, 12853, 12923, 13187, 13339, 13729, 13933, 14563, 15683, 15823, 16073, 16141
Offset: 1
Keywords
Examples
The four closest primes to 1327 are 1321 (difference = 6), 1319 (difference = 8), 1307 (different = 20) and 1303 (difference =24). 1321, 1319, 1307 and 1303 are all smaller than 1327, so 1327 is in the list.
Programs
-
Mathematica
#[[5]]&/@Select[Partition[Prime[Range[2500]], 6, 1], #[[5]]-#[[1]]<#[[6]]-#[[5]]&] (* Harvey P. Dale *)
Extensions
Edited by Robert G. Wilson v, Oct 11 2002