%I #5 Jan 27 2014 11:37:02
%S -1,-3,7,513,13983,357857,9546255,272475249,8375575711,277269756129,
%T 9862141508151,375700268413577,15277275236695743,660913009555809345,
%U 30322968902771794975,1471145239418922932193,75269422312346702251455
%N a(n)=n^(n+3)-(n+3)^n.
%t a[n_]:=n^(n+3)-(n+3)^n;lst={};Do[AppendTo[lst,a[n]],{n,0,4!}];lst
%t Table[n^(n+3)-(n+3)^n,{n,0,20}] (* _Harvey P. Dale_, Jan 27 2014 *)
%Y Cf. A046065
%K sign
%O 0,2
%A _Vladimir Joseph Stephan Orlovsky_, Dec 20 2008
%E Minor edits from _Harry J. Smith_, Dec 23 2008