OFFSET
1,1
COMMENTS
2*3*4=24-3-2=19, 2*3*4=24+3+2=29, ...
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
prQ[n_]:=Module[{x=n^3-n, y=n+2}, And@@PrimeQ[{x+y, x-y}]]; Select[Prime[ Range[4200]], prQ] (* Harvey P. Dale, Jun 21 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jan 17 2009
STATUS
approved