login
A089205
a(n) = n^n * (n-1).
0
0, 4, 54, 768, 12500, 233280, 4941258, 117440512, 3099363912, 90000000000, 2853116706110, 98077104930816, 3634501279107036, 144456088732254208, 6130514465332031250, 276701161105643274240, 13235844190181388226832
OFFSET
1,2
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
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, Dec 09 2003
EXTENSIONS
More terms from Vladeta Jovovic, Dec 12 2003
STATUS
approved