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
KEYWORD
nonn
AUTHOR
Alex Ratushnyak, Nov 02 2013
STATUS
approved