login
A143782
Numbers of the form : k=k^n-n^k, (k=3).
0
2, 0, -1, 0, -3, 898
OFFSET
1,1
COMMENTS
The next number is too large to include.
MATHEMATICA
lst={}; k=3; Do[k=k^n-n^k; AppendTo[lst, IntegerPart[k]], {n, 7}]; lst
CROSSREFS
Sequence in context: A324811 A086780 A158612 * A073430 A371093 A053389
KEYWORD
sign
AUTHOR
STATUS
approved