|
|
A173054
|
|
Numbers of the form a^b+b^a, a > 1, b > a.
|
|
5
|
|
|
17, 32, 57, 100, 145, 177, 320, 368, 593, 945, 1124, 1649, 2169, 2530, 4240, 5392, 7073, 8361, 16580, 18785, 20412, 23401, 32993, 60049, 65792, 69632, 94932, 131361, 178478, 262468, 268705, 397585, 423393, 524649, 533169, 1048976, 1058576
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
2^3+3^2=17,..
|
|
LINKS
|
|
|
MATHEMATICA
|
f[a_, b_]:=a^b+b^a; Take[Union[Flatten[Table[f[a, b], {a, 2, 50}, {b, a+1, 50}]]], 80]
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]]]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|