OFFSET
1,1
MATHEMATICA
lst={}; Do[p=Prime[n]; If[ !PrimeQ[p1=Floor[p/2]+p]&&!PrimeQ[p2=Ceiling[p/2]+p], If[ !PrimeQ[p3=Floor[p1/2]+p1]&&!PrimeQ[p5=Ceiling[p1/2]+p1], If[ !PrimeQ[p4=Floor[p2/2]+p2]&&!PrimeQ[p6=Ceiling[p2/2]+p2], AppendTo[lst, Prime[n]]]]], {n, 6!}]; lst
nonpQ[p_]:=Module[{p1=Floor[p/2]+p, p2=Ceiling[p/2]+p}, NoneTrue[ {p1, p2, Floor[ p1/2]+p1, Ceiling[p1/2]+p1, Floor[p2/2]+p2, Ceiling[p2/2]+ p2}, PrimeQ]]; Select[Prime[Range[200]], nonpQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Nov 21 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Mar 24 2009
STATUS
approved