%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
