A153217 a(n)=n^(n+3)-(n+3)^n.

-1, -3, 7, 513, 13983, 357857, 9546255, 272475249, 8375575711, 277269756129, 9862141508151, 375700268413577, 15277275236695743, 660913009555809345, 30322968902771794975, 1471145239418922932193, 75269422312346702251455

Offset: 0

Author

Vladimir Joseph Stephan Orlovsky, Dec 20 2008

Keywords

• sign

Crossrefs

Cf. A046065

Programs

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 *)

Extensions

Minor edits from Harry J. Smith, Dec 23 2008