隔墙外壳模型示意图(三维视图)%e A182743阵型开首:
%e A182743 3 3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,;%e A182743 3,3,3,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,,2,
%e A182743 6,3,2,2,2,2,2,2,
%e A182743 5,4,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,e A182743 5,3,3,2,2,2,2,2,2,
%e A182743 4,4,3,2,2,2,2,2,2,
%e A182743 8,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,;第二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、二、2,2,;%p A182743 cmpL:=proc(a,b)locali;为i从1到min(nops(a,a,nops(b))do if op(i,a)<op(i,b)然后返回-1;elif op(i,a)>op(i,b)然后返回1;end if;end if;end do;如果nops(a)>nops(b)b)则返回1;elif nops(a)<nops(b)则返回1;elif nops(a)<nops(b)然后返回-1;其他返回0;end if;end proc:;%p A182743 pShellMin:=proc(p)locallocallocallocal proc(p)local p)local proc(p)local proc(p)p)localIdx,j;idx:=1;对于从2开始的jnops(p)做如果cmpL(op(j,p),op(idx,p))<0,那么idx:=j;end if;end do;返回idx;end proc;end proc:
%p A182743 A141412853A141285 ROWF:=proc(n)局部p;如果n<=1,则[n];else psort:=[];p:=结合[分区](n);而nops(p)>0做m:=pShellMin(p);mmi:=min(p);mmi:=min(op(op(m,p))));如果mmi>1,mma:=max(op(op(m,m,p));如果mmi>1,mma:=max(op(op(p));psort:=[op(psort),sort(op(m,p),`>`);;end if;p:=SUBSP(m=NULL,p);end do:psort;end if;end proc:
%p A182743为n从1到17的1到17的2办办办shl:=A141285 rowf(n);为r在shl中为k做k中r做printf(“%d,”,k);end do:printf(“\n“);end do:printf(“\n“);end do:printf(\n“);end do:#利用r.J.J.Mathar 2009年12月3 2010年3 2010年;%Y A182743的A135010,A135010,A135010 38121,A141285,A182731,A182742.
%Y A182743第1列给出A182733。第2列给出A182745.
%K A182743 nonn,Table,more
%O A182743 1,1
%A A182743
%O Omar E.Pol
,2010年11月30日,2010年12月1日
%K A182743 Non,tabl,more
%O A182743 1,1