OFFSET
0,2
MATHEMATICA
a[n_]:=n^(n+3)-(n+3)^n; lst={}; Do[AppendTo[lst, a[n]], {n, 0, 4!}]; lst
Table[n^(n+3)-(n+3)^n, {n, 0, 20}] (* Harvey P. Dale, Jan 27 2014 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Vladimir Joseph Stephan Orlovsky, Dec 20 2008
EXTENSIONS
Minor edits from Harry J. Smith, Dec 23 2008
STATUS
approved