%I #14 May 21 2018 10:54:06
%S 2,3,5,309
%N Numbers k such that prime(k)^k + 2 is prime.
%p select( n-> isprime(ithprime(n)^n + 2), [$(1..333)]) # _M. F. Hasler_, May 21 2018
%o (PARI) select( is(n)=ispseudoprime(prime(n)^n+2), [1..333])
%o L=500; for(n=1,oo, is(n)&&print1(n","); n<L||print1([n])||L+=500)
%Y Cf. A304856.
%K nonn,hard,more
%O 1,1
%A _M. F. Hasler_, May 19 2018