A066846 Numbers of the form a^a + b^b, a >= b > 0.

2, 5, 8, 28, 31, 54, 257, 260, 283, 512, 3126, 3129, 3152, 3381, 6250, 46657, 46660, 46683, 46912, 49781, 93312, 823544, 823547, 823570, 823799, 826668, 870199, 1647086, 16777217, 16777220, 16777243, 16777472, 16780341, 16823872, 17600759, 33554432

Offset: 0

Author

Leroy Quet, Jan 20 2002

Keywords

• easy
• nonn

Examples

			28 is included because 28 = 1^1 + 3^3.
		

Crossrefs

Cf. A000312, A218346, A218347.

Cf. A068145: primes of the form a^a + b^b.

Programs

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

Extensions

Name improved by Alex Ratushnyak, Oct 26 2012