%I #6 Apr 27 2012 12:15:12
%S 2,3,3121,302875106592241
%N Primes of the form n^n - n + 1.
%C The next term has 340 digits. - _T. D. Noe_, Apr 27 2012
%e a(2) = 5^5 - 5 + 1 = 3125 - 4 = 3121.
%t Unprotect[Power]; Power[0, 0] = 1; Protect[Power]; Select[Table[n^n - n + 1, {n, 0, 100}], PrimeQ] (* _T. D. Noe_, Apr 27 2012 *)
%Y Cf. A161471, A161472.
%K nonn
%O 1,1
%A _Alex Ratushnyak_, Apr 27 2012
|