%I A058911
%S A058911 1,2,3,6,9,462
%N A058911 Numbers n such that n^n + n + 1 is prime.
%C A058911 0^0 is undefined, so 0 is not a member.
%C A058911 There is no further term up to 10000. - Farideh Firoozbakht (mymontain(AT)yahoo.com), 
               Nov 11 2006
%e A058911 a(2)=2 because 2^2+(2+1)=7
%t A058911 Do[ If[ PrimeQ[ n^n + n + 1], Print[n]], {n, 1, 700} ]
%o A058911 (PARI) f2(n,k) = for(x=1,n,y=x^x+x+k;if(ispseudoprime(y),print1(x","))) 
               - Cino Hilliard (hillcino368(AT)gmail.com), Jan 07 2005
%Y A058911 Cf. (n^n+1-1) A058912.
%Y A058911 Sequence in context: A145761 A071714 A077753 this_sequence A056060 A056058 
               A028255
%Y A058911 Adjacent sequences: A058908 A058909 A058910 this_sequence A058912 A058913 
               A058914
%K A058911 nonn,hard,more
%O A058911 1,2
%A A058911 Felice Russo (felice.russo(AT)katamail.com), Jan 10 2001