递归表[{a[1]==1,a[2]==2,a[n]==a[n-1]+n a[n-2]},a,{n,30}](*哈维·P·戴尔2012年4月21日*)
a[n]:=与[{m=n+1},如果[m<2,0,和[(2k-1)!!二项式[m,2k],{k,0,m/2}]/2]];
a[n]:=与[{m=n+1},如果[m<2,0,超几何U[-m/2,1/2,-1/2]/(-1/2)^(m/2)/2]];
a[n_]:=与[{m=n+1},如果[m<2,0,超几何PFQ[{-m/2,(1-m)/2},{},2]/2]];
a[n_]:=如果[n<1,0,n!系列系数[Exp[x+x^2/2]*(1+x)/2,{x,0,n}]];(*结束*)
折叠[附加[#1,#1[-1]]+#2#1[-2]]&,{1,2},范围[3,26]](*迈克尔·德弗利格2018年1月23日*)