|
%I #11 Apr 09 2014 10:12:19
%S 2,5,8,28,31,54,257,260,283,512,3126,3129,3152,3381,6250,46657,46660,
%T 46683,46912,49781,93312,823544,823547,823570,823799,826668,870199,
%U 1647086,16777217,16777220,16777243,16777472,16780341,16823872,17600759,33554432
%N Numbers of the form a^a + b^b, a >= b > 0.
%e 28 is included because 28 = 1^1 + 3^3.
%t nn = 10; Select[Union[Flatten[Table[a^a + b^b, {a, nn}, {b, a, nn}]]], # <= nn^nn + 1 &] (* _T. D. Noe_, Nov 15 2012 *)
%Y Cf. A000312, A218346, A218347.
%Y Cf. A068145: primes of the form a^a + b^b.
%K easy,nonn
%O 0,1
%A _Leroy Quet_, Jan 20 2002
%E Name improved by Alex Ratushnyak, Oct 26 2012
|
