A228238 Primes of the form x^x * y^y + 1.

2, 5, 17, 109, 257, 65537, 3294173, 145800001, 210827009, 13816758796289, 167772160000000001, 2844673747342852097, 3874204890000000001, 498062089990157893633, 15191686954694985266495489, 355271367880050092935562133789062501

Offset: 1

Author

Alex Ratushnyak, Nov 02 2013

Keywords

• nonn

Crossrefs

Cf. A000040, A156223.

Programs

Mathematica

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 *)