OFFSET
1,1
COMMENTS
3*5*7+2+2-1=108+-1=prime,
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
lst={}; Do[p1=Prime[n]; p2=Prime[n+1]; p3=Prime[n+2]; d1=p2-p1; d2=p3-p2; a=p1*p2*p3+d1+d2-1; If[PrimeQ[a-1]&&PrimeQ[a+1], AppendTo[lst, p1]], {n, 8!}]; lst
s3cpQ[{a_, b_, c_}]:=Module[{tp=a*b*c+(c-a)-1}, AllTrue[tp+{1, -1}, PrimeQ]]; Select[ Partition[Prime[Range[15000]], 3, 1], s3cpQ][[All, 1]] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jul 01 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Dec 25 2008
STATUS
approved