OFFSET
1,1
COMMENTS
2^3+3^2=17,..
LINKS
T. D. Noe, Table of n, a(n) for n=1..1000
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
Vladimir Joseph Stephan Orlovsky, Feb 08 2010
STATUS
approved