(PARI)a(n)=n!*如果(n<0,0,polceoff((3-2*exp(x))/(4-3*exp
(PARI){a(n)=如果(n==0,1,(1/12)*圆形(suminf(k=1,k^n*(3/4)^k*1))}\\保罗·D·汉纳2014年11月28日
(岩浆)[1]cat[(&+[3^(j-1)*阶乘(j)*斯特林秒(n,j):j in[1..n]]):n in[0..20]]; //G.C.格鲁贝尔2020年6月8日
(Sage)[1]+[总和(3^(j-1)*阶乘(j)*stirling_number2(n,j)for j in(1..n))for n in(1..20)]#G.C.格鲁贝尔2020年6月8日