A104533号:=proc(n::integer)局部i,j,prttnlst,prttn,liste,ZahlVerschiedenerTeile,H,Mltplztt;Mltplztt:=向量[1000];prttnlst:=分区(n);H:=0;对于i从1到nops(prttnlst)do prttn:=prttnlst[i];列表:=转换(prttn,multiset);ZahlVerschiedenerTeile:=nops(列表);对于从1到ZahlVerschiedenerTeile do Mltplztt[j]的j:=op(2,op(j,liste));od;H:=H+(n!/mul(Mltplztt[j]!,j=1..扎尔维尔施基德内尔)*2^n;od;打印(n,H);终末程序;