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
KEYWORD
sign
AUTHOR
Vladimir Joseph Stephan Orlovsky, Aug 31 2008
STATUS
approved