%I

%S 0,1,3,7,9,39

%N Numbers n such that n^n+10 is prime.

%C Here we interpret 0^0 as 1.

%C No more terms < 500. - _Stefan Steinerberger_, Mar 15 2006

%t Select[Range[500], PrimeQ[ #^# + 10] &] - _Stefan Steinerberger_, Mar 15 2006

%o (PARI) f1(n,a) = for(x=0,n,y=x^x+a;if(ispseudoprime(y),print1(y",")))

%K hard,nonn

%O 1,3

%A _Cino Hilliard_, Jan 07 2005