OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
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 *)
Select[Partition[Prime[Range[200]], 3, 1], Min[Differences[#]]>5&][[;; , 2]] (* Harvey P. Dale, Oct 29 2023 *)
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
(Magma) [p:p in PrimesInInterval(3, 1200)|p-PreviousPrime(p) ge 6 and NextPrime(p)-p ge 6]; // Marius A. Burtea, Aug 11 2019
CROSSREFS
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