OFFSET
1,2
COMMENTS
1*2*3=6+-1 -> primes, 3*4*5=60+-1 -> primes,...
MATHEMATICA
f1[n_]:=PrimeQ[n-1]&&PrimeQ[n+1]; f2[n_]:=n*(n+1)*(n+2); lst={}; Do[If[f1[f2[n]], AppendTo[lst, n]], {n, 8!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Mar 13 2010
STATUS
approved