OFFSET
0,1
EXAMPLE
28 is included because 28 = 1^1 + 3^3.
MATHEMATICA
nn = 10; Select[Union[Flatten[Table[a^a + b^b, {a, nn}, {b, a, nn}]]], # <= nn^nn + 1 &] (* T. D. Noe, Nov 15 2012 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Leroy Quet, Jan 20 2002
EXTENSIONS
Name improved by Alex Ratushnyak, Oct 26 2012
STATUS
approved