#来自在线整数序列百科全书的问候!http://oeis.org/ 搜索:id:a182743 显示1-1一1的1 %I a182743 %S a182743 %S a182743 3 3,5,2,2,4,4,2,2,2,2,7,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,4,3,2,2,2,2,2,2,2,2 %N A182743表中不包含1作为奇数的一部分的分区。 %C A182743与A182742相同,但对于奇数。 %H A182743 Omar E.Pol,隔墙外壳模型示意图(三维视图)%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