OFFSET
1,1
MATHEMATICA
lst={}; Do[p=Prime[n]; If[PrimeQ[p=Floor[p/2]+p], If[PrimeQ[p=Ceiling[p/2]+p], AppendTo[lst, Prime[n]]]], {n, 7!}]; lst
pQ[n_]:=Module[{p1=Floor[n/2]+n}, AllTrue[{p1, Ceiling[p1/2]+p1}, PrimeQ]]; Select[Prime[Range[2500]], pQ] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Feb 07 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Mar 24 2009
EXTENSIONS
Definition corrected by Harvey P. Dale, Feb 07 2019
STATUS
approved