OFFSET
0,3
FORMULA
E.g.f.: W(-x) - W(-x)/(x*(1+W(-x))) where W is the Lambert W function. - Robert Israel, Oct 19 2015
MAPLE
a:= n-> (f-> f(n+1)-f(n))(n-> `if`(n=0, 0, n^(n-1))):
seq(a(n), n=0..20); # Alois P. Heinz, Feb 26 2020
MATHEMATICA
Table[(n+1)^n-n^(n-1), {n, 25}]
PROG
(Maxima) A178922[n]:=(n+1)^n-n^(n-1)$ makelist(A178922[n], n, 1, 30); /* Martin Ettl, Oct 29 2012 */
(PARI) vector(100, n, (n+1)^n - n^(n-1)) \\ Altug Alkan, Oct 19 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Dec 29 2010
EXTENSIONS
a(0)=1 prepended and definition adapted by Alois P. Heinz, Feb 26 2020
STATUS
approved