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
okQ[n_]:=Module[{p5=Prime[PrimePi[n]-5], pp=NextPrime[n]}, (n-p5)<(pp-n)]; Select[Prime[Range[6, 5000]], okQ] (* Harvey P. Dale, Jan 17 2011 *)
ps={2, 3, 5, 7, 11}; p=13; Reap[Do[np=NextPrime[p]; If[p-ps[[1]] < np-p, Sow[p]]; ps=RotateLeft[ps]; ps[[-1]]=p; p=np, {5000}]][[2, 1]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Neil Fernandez, Oct 10 2002
EXTENSIONS
Edited by Robert G. Wilson v, Oct 11 2002
STATUS
approved