OFFSET
1,1
MATHEMATICA
lst={}; Do[p=Prime[n]; If[PrimeQ[(p-1)*p*(p+1)-p+2]&&PrimeQ[(p-1)*p*(p+1)+p-2], AppendTo[lst, p]], {n, 8!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jan 17 2009
STATUS
approved