|
| |
|
|
A045575
|
|
Numbers of the form x^y - y^x, for x,y > 1.
|
|
2
| |
|
|
0, 1, 7, 17, 28, 79, 118, 192, 399, 431, 513, 924, 1844, 1927, 2800, 3952, 6049, 7849, 8023, 13983, 16188, 18954, 32543, 58049, 61318, 61440, 65280, 130783, 162287, 175816, 255583, 261820, 357857, 523927, 529713, 1038576, 1048176
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
LINKS
| T. D. Noe, Table of n, a(n) for n=1..1000
|
|
|
MATHEMATICA
| Union[Flatten[Table[If[a^b-b^a>-1&&a^b-b^a<10^6*2, a^b-b^a], {a, 1, 123}, {b, a, 144}]]] - Vladimir Orlovsky, Apr 26 2008
nn=10^50; n=1; Union[Reap[While[n++; k=n+1; num=Abs[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: A160912 A017353 A147089 * A029532 A157417 A088566
Adjacent sequences: A045572 A045573 A045574 * A045576 A045577 A045578
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Erich Friedman (erich.friedman(AT)stetson.edu)
|
| |
|
|
