%I

%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