OFFSET
1,1
MATHEMATICA
tpQ[n_]:=Module[{c=(2^61-1)^3}, AllTrue[n*c+{1, -1}, PrimeQ]]; Select[ Range[ 600000], tpQ] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, May 16 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Pierre CAMI, Oct 07 2004
EXTENSIONS
Corrected and extended by Harvey P. Dale, May 16 2016
STATUS
approved