OFFSET
1,1
MATHEMATICA
lst={}; Do[p=Prime[n]; If[ !PrimeQ[Floor[p/2]+p]&&!PrimeQ[Ceiling[p/2]+p], AppendTo[lst, p]], {n, 6!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Mar 24 2009
STATUS
approved