%I#2 2012年3月30日17:35:55

%S 44857657663063072072096011521152144014401920162016，

%电话：2016288028805760704032040320

%N吊钩产品的所有分区为8。

%Ca（n）=8/A003872（n）

%p H:=proc（pa）局部F，j，p，Q，i，col，a，a:F:=proc（x）局部i，ct:ct:=0：对于i从1到nops（x）do，如果x[i]>1，那么ct:=ct+1其他fiod:ct；结束：对于从1到nops（pa）的j，do p[1][j]：=pa[j]od:Q[1]：=[seq（p[1][j]，j=1..nops（pa））]：对于从2到pa[1]的i，do for j，from 1到F（Q[i-1]）do p[i][j]:=Q[i-2][j]-1 od:Q[i]：=[seq[i]：=[seq（Q[i][j]+nops（Q[i）-j，j=1..nops（Q[i]））]od:a:=proc（i，j），如果i<=nops（Q[j]）和j<=pa[1]，则Q[j][i]+nops（Q[j]）-ielse 1 fi end:A:=矩阵（nops（pa），pa[1]，A）：乘积（乘积（A[m，n]，n=1..pa[1]），m=1..nops（pa））；end：with（组合）：rev:=proc（a）[seq（a[nops（a）+1-i]，i=1..nops（a）]end：排序（[seq[H（rev（分区（8）[q]）），q=1..numbert（8）]））；

%Y参考A003872。

%K fini、full、nonn

%O 1,1号机组

%德国电子报，2004年5月17日