[go: up one dir, main page]

login
A153217
a(n)=n^(n+3)-(n+3)^n.
1
-1, -3, 7, 513, 13983, 357857, 9546255, 272475249, 8375575711, 277269756129, 9862141508151, 375700268413577, 15277275236695743, 660913009555809345, 30322968902771794975, 1471145239418922932193, 75269422312346702251455
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
Sequence in context: A013424 A013423 A199365 * A120905 A062599 A101246
KEYWORD
sign
AUTHOR
EXTENSIONS
Minor edits from Harry J. Smith, Dec 23 2008
STATUS
approved