表[
下一个分区[n1_,n2_,n3_,n4_]:=
如果[n1<n,f[n1+1,n2,n3,n4],0]+
如果[n2<n1-1||n2==n-1,f[n1,n2+1,n3,n4],0]+
如果[n3<n2-1||n3==n-1==n2-1,f[n1,n2,n3+1,n4],0]+
如果[n4<n3-1,f[n1,n2,n3,n4+1],0];
pp=f[1,0,0,0];
做[pp=Expand[pp/.f[ns__]:>NextPartitions[ns]],{4n-2}];
第页/。f[n,n,n-1]->1,