login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A075037 Primes for which the five closest primes are smaller. 7
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; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Table of n, a(n) for n=1..34.

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]  [From 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

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

Sequence in context: A202374 A259415 A015162 * A134116 A122390 A075038

Adjacent sequences:  A075034 A075035 A075036 * A075038 A075039 A075040

KEYWORD

nonn

AUTHOR

Neil Fernandez, Oct 10 2002

EXTENSIONS

Edited by Robert G. Wilson v, Oct 11 2002

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 20 12:58 EDT 2018. Contains 313917 sequences. (Running on oeis4.)