OFFSET
1,1
MAPLE
select( n-> isprime(ithprime(n)^n + 2), [$(1..333)]) # M. F. Hasler, May 21 2018
PROG
(PARI) select( is(n)=ispseudoprime(prime(n)^n+2), [1..333])
L=500; for(n=1, oo, is(n)&&print1(n", "); n<L||print1([n])||L+=500)
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
M. F. Hasler, May 19 2018
STATUS
approved