OFFSET
1,1
MATHEMATICA
With[{c=(2^61-1)^4}, Select[Range[500000], AllTrue[c*#+{1, -1}, PrimeQ]&]] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Aug 30 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Pierre CAMI, Oct 07 2004
EXTENSIONS
More terms from Harvey P. Dale, Aug 30 2015
STATUS
approved