(PARI){a(n)=n!*polceoff(exp(总和(k=1,n,(k-1)*x^k/k)+x*O(x^n)),n)}
(岩浆)
l: =func<n,a,b|求值(拉盖尔多项式(n,a),b)>;
[1,0]类别[(阶乘(n)/(n-1))*(2*l(n-1,0,-1)-l(n,0,-1)):[2..30]]中的n; //G.C.格鲁贝尔2021年3月10日
(Sage)[1-n,如果n<2 else(阶乘(n)/(n-1))*(0..30)中n的(2*gen_laguerre(n-1,0,-1)-gen_lagrere(n,0,-1))]#G.C.格鲁贝尔2021年3月10日