110 people attended OEIS-50 (videos, suggestions); annual fundraising drive to start soon (donate); editors, please edit! (stack is over 300), your editing is more valuable than any donation.
%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