%I #8 Nov 04 2013 14:40:04
%S 2,5,17,109,257,65537,3294173,145800001,210827009,13816758796289,
%T 167772160000000001,2844673747342852097,3874204890000000001,
%U 498062089990157893633,15191686954694985266495489,355271367880050092935562133789062501
%N Primes of the form x^x * y^y + 1.
%t nn = 40; Join[{2}, Select[Rest[Union[Flatten[Table[x^x*y^y + 1, {x, nn}, {y, x, nn}]]]], # <= nn^nn + 1 && PrimeQ[#] &]] (* _T. D. Noe_, Nov 04 2013 *)
%Y Cf. A000040, A156223.
%K nonn
%O 1,1
%A _Alex Ratushnyak_, Nov 02 2013
|