OFFSET
1,3
COMMENTS
n^6+2 is also prime for n = 0, 1, 1746525, 2876859, …
MATHEMATICA
Select[Range[3500000], And@@PrimeQ/@(Table[n^i+2, {i, 2, 5}]/.n->#)&]
Select[Range[0, 33*10^5], AllTrue[#^Range[2, 5]+2, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jul 21 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, Feb 15 2013
STATUS
approved