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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A137869 Primes p with property that (p - previous prime) >= 6 and (next prime - p) >= 6. 3
53, 89, 157, 173, 211, 251, 257, 263, 293, 331, 337, 359, 367, 373, 389, 409, 449, 479, 509, 541, 547, 557, 563, 577, 587, 593, 607, 631, 653, 683, 691, 701, 709, 719, 727, 733, 751, 787, 797, 839, 919, 929, 947, 953, 977, 983, 991, 997, 1039, 1069, 1103, 1109, 1117 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

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

MAPLE

M:=1000; t1:=[];

for i from 2 to M do

p:=ithprime(i); o:=prevprime(p); q:=nextprime(p);

if p-o >= 6 and q-p >= 6 then t1:=[op(t1), p]; fi; od:

t1; # N. J. A. Sloane

MATHEMATICA

lst={}; Do[p=Prime[n]; If[ !PrimeQ[p-2]&&!PrimeQ[p+2]&&!PrimeQ[p-4]&&!PrimeQ[p+4], AppendTo[lst, p]], {n, 6!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jul 20 2009 *)

PROG

(PARI) p=q=2; forprime(r=2, 999, r-q>4 & q-p>4 & print1(q", "); p=q; q=r) \\ M. F. Hasler, May 02 2009

CROSSREFS

Sequence in context: A272367 A119289 A124282 * A096697 A033234 A266845

Adjacent sequences:  A137866 A137867 A137868 * A137870 A137871 A137872

KEYWORD

nonn

AUTHOR

Vladimir Joseph Stephan Orlovsky, Apr 29 2008

EXTENSIONS

Edits and more terms from N. J. A. Sloane, May 02 2009

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 March 22 20:04 EDT 2017. Contains 283897 sequences.