OFFSET
0,4
COMMENTS
a(n) = n^n - A209319(n). - Vaclav Kotesovec, Oct 09 2013
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..150
FORMULA
E.g.f.: 1/(1-T(x)) - exp(T(x) + T(x)^2/2) where T(x) is the e.g.f. for A000169.
MAPLE
T:= -LambertW(-x):
egf:= 1/(1-T) -exp(T +T^2/2):
a:= n-> n! *coeff(series(egf, x, n+1), x, n):
seq(a(n), n=0..20); # Alois P. Heinz, Jan 11 2013
MATHEMATICA
nn=20; t=Sum[n^(n-1)x^n/n!, {n, 1, nn}]; Range[0, nn]!CoefficientList[Series[1/(1-t)-Exp[Sum[t^i/i, {i, 1, 2}]], {x, 0, nn}], x]
CROSSREFS
KEYWORD
nonn
AUTHOR
Geoffrey Critzer, Jan 11 2013
STATUS
approved