login
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
OFFSET
1,1
COMMENTS
2^3+3^2=17,..
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
Sequence in context: A038354 A043127 A043907 * A162624 A029817 A162504
KEYWORD
nonn
AUTHOR
STATUS
approved