login
A228238
Primes of the form x^x * y^y + 1.
0
2, 5, 17, 109, 257, 65537, 3294173, 145800001, 210827009, 13816758796289, 167772160000000001, 2844673747342852097, 3874204890000000001, 498062089990157893633, 15191686954694985266495489, 355271367880050092935562133789062501
OFFSET
1,1
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 *)
CROSSREFS
Sequence in context: A103511 A254132 A161609 * A174168 A097980 A210525
KEYWORD
nonn
AUTHOR
Alex Ratushnyak, Nov 02 2013
STATUS
approved