|
%I #6 Mar 31 2012 12:38:28
%S 17,32,57,100,145,177,320,368,593,945,1124,1649,2169,2530,4240,5392,
%T 7073,8361,16580,18785,20412,23401,32993,60049,65792,69632,94932,
%U 131361,178478,262468,268705,397585,423393,524649,533169,1048976,1058576
%N Numbers of the form a^b+b^a, a > 1, b > a.
%C 2^3+3^2=17,..
%H T. D. Noe, <a href="/A173054/b173054.txt">Table of n, a(n) for n=1..1000</a>
%t f[a_,b_]:=a^b+b^a; Take[Union[Flatten[Table[f[a,b],{a,2,50},{b,a+1,50}]]],80]
%t nn=10^50; n=1; Union[Reap[While[n++; k=n+1; num=n^k+k^n; num<nn, Sow[num]; While[k++; num=n^k+k^n; num<nn, Sow[num]]]][[2,1]]]
%Y Cf. A076980
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Feb 08 2010
|
