|
%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 (hillcino368(AT)gmail.com), Jan 07 2005
|
