A089205 a(n) = n^n * (n-1).

0, 4, 54, 768, 12500, 233280, 4941258, 117440512, 3099363912, 90000000000, 2853116706110, 98077104930816, 3634501279107036, 144456088732254208, 6130514465332031250, 276701161105643274240, 13235844190181388226832

Offset

1,2

Links

Table of n, a(n) for n=1..17.

Milan Janjic, Enumerative Formulas for Some Functions on Finite Sets

Formula

E.g.f.: -(1 + 3*LambertW(-x) + LambertW(-x)^2)/(1+LambertW(-x))^3. - Vladeta Jovovic, Dec 12 2003

Mathematica

f[n_]:=(n^(n+1)-n^n); lst={}; Do[AppendTo[lst, f[n]], {n, 5!}]; lst (* Vladimir Joseph Stephan Orlovsky, Feb 07 2010 *)

Prog

(PARI) g(n) = for(x=1, n, print1(x^x*(x-1)", "))

Crossrefs

Sequence in context: A221395 A357558 A241126 * A294041 A055774 A071248

Adjacent sequences: A089202 A089203 A089204 * A089206 A089207 A089208

Keyword

easy,nonn

Author

Cino Hilliard, Dec 09 2003

Extensions

More terms from Vladeta Jovovic, Dec 12 2003

Status

approved