(PARI)a(n)=n*sum(k=0,n\2,(-k+1)^(k-1)*stirling(n-k,k,2)/(n-k)!);
(PARI)我的(N=30,x='x+O('x^N));Vec(serlaplace(总和(k=0,N,(-k+1)^(k-1)*(x*(exp(x)-1))^k/k!))
(PARI)我的(N=30,x='x+O('x^N));Vec(塞拉普拉斯语(exp(lambertw(x*(exp)-1)))
(PARI)我的(N=30,x='x+O('x^N));Vec(塞拉普拉斯(-x*(1-exp(x)