login
A143781
Numbers of the form : k=k^n-n^k, (k=1).
0
0, -1, -1, 3, 118, -199068134034785153195409370979964879499768447341765846329146257207125965412281784631240438087
OFFSET
1,4
COMMENTS
The next number is too large to include.
MATHEMATICA
lst={}; k=1; Do[k=k^n-n^k; AppendTo[lst, IntegerPart[k]], {n, 6}]; lst
CROSSREFS
Sequence in context: A173053 A180393 A172013 * A114077 A176996 A159522
KEYWORD
sign
AUTHOR
STATUS
approved