k=6;表[(搅拌S2[n,k]-If[EvenQ[n],搅拌S2[n/2+3,6]-3StirlingS2[n/2+2,6]-8StirlingS2[n/2+1,6]+16StirlingS2[n/2,6],3SterlingS2[(n+5)/2,6]-17Stirling S2[(n+3)/2、6]+20Stirlingt2[(n+1)/2,6]])/2,{n,30}]
Ach[n_,k_]:=Ach[n,k]=如果[n<2,Boole[n==k&&n>=0](*A304972型*)
k=6;表[(斯特林S2[n,k]-Ach[n,k])/2,{n,1,30}]
线性递归[{21、-159、399、1085、-8085、9555、34125、-98644、5544、253764、-248724、-136800、317520、-129600}、{0、0、0,0、9、124、1300、11316、89513、660978、4658738、31711638}、30]