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