urt[n_]:=联接@@表[Union[Sort/@Tuples[urt/@ptn]],{ptn,IntegerPartitions[n-1]}];
表[长度[Select[urt[n],长度[#]>2&]],{n,10}]
(*第二个节目:*)
g[n_,i_,t_]:=g[n,i,t]=如果[n==0,如果[t==0、1、0],
如果[i<1,0,和[二项式[g[i-1,i-1,0]+j-1,j]*
g[n-i*j,i-1,最大值[0,t-j]],{j,0,n/i}]];
a[n]:=g[n-1,n-1,3];
|