OFFSET
1,2
MATHEMATICA
Do[ If[ PrimeQ[n + 1] && PrimeQ[n^2 + 1] && PrimeQ[n^4 + 1] && PrimeQ[n^8 + 1], Print[n]], {n, 1, 10^7}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, May 13 2002
STATUS
approved