OFFSET
1,2
COMMENTS
MATHEMATICA
Select[Range[10^8], AllTrue[2#^Range[2, 6]+1, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Mar 18 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Apr 01 2014
STATUS
approved