OFFSET
1,1
MATHEMATICA
lst={}; Do[p=Prime[n]; If[PrimeQ[2*p-Prime[n+1]], AppendTo[lst, p]], {n, 8!}]; lst1=lst; lst={}; Do[p=Prime[n]; If[PrimeQ[2*p+Prime[n+1]], AppendTo[lst, p]], {n, 8!}]; lst2=lst; Complement[Prime[Range[200]], lst1, lst2]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Mar 03 2010
STATUS
approved