检验过的
经核准的
提出
编辑
b[n_,j_]:=b[n,j]=如果[n==j||n==0,1,和[b[n-j,i]*(二项式[j-1,i-1]+i*(i-1)/2*二项式[j-1,i-3]),{i,1,Min[j+3,n-j]}];
a[n]:=b[n,2];
表[a[n],{n,0,35}](*Jean-François Alcover公司,2018年5月25日,翻译自枫叶*)
第k=2列,共2列A288108型.
囊性纤维变性。A000108号,A281874号,A287845型,A287846号,A287963型.
b: =proc(n,j)选项记忆`如果`(n个=j个<0或j个>n个,=0,1,
`如果`(n个=j个,1, 加上(b(n-j,i)*(二项式(j-1,我-1) +我*(i-1号机组)+)/2*
二项式(j-1,i-3)*我*(我-1)/2),)),i=1。。最小值(j+3岁,n个-j个)))
答:=n个-> `如果`(n个=0,1,->b(n,2)):):