%I#12 2016年5月29日09:54:55
%S 3,5,2,4,2,2,2,7,3,2,2,3,2,2,2,2,6,2,2,2,2,2,5,3,3,2,22,2,9,4,2,22,2,2,
%温度2,2,5,2,2,2,2,2,2,2,4,3,2,2,22,2,2,2
%N不包含1作为奇数部分的分区表。
%C与A182742的想法相同,但用于奇数。
%H Omar E.Pol,<a href=“http://www.polprimos.com/imagenespub/polpa3dt.jpg“>隔板外壳模型图解(3D视图)</a>
%e阵列开始:
%e 3,2,2,2,2,2,2,2,2,2,2,2,2,
%e 5,2,2,2,2,2,2,2,2,
%e 4,3,2,2,2,2,2,2,2,2,
%e 7,2,2,2,2,2,2,2,2,
%e 3,3,2,2,2,2,2,2,2,2,
%e 6,3,2,2,2,2,2,2,2,2,2,2,2,
%e 5,4,2,2,2,2,2,2,2,
%e 9,2,2,2,2,2,2,2,2,
%e 5,3,3,2,2,2,2,2,
%e 4,4,3,2,2,2,2,2,
%e 8,3,2,2,2,2,2,2,
%e 7,4,2,2,2,2,2,2,2,
%e 6,5,2,2,2,2,2,2,2,
%e 11,2,2,2,2,2,2,2,
%e 4,3,3,2,2,2,2,2,
%e第7,3,3,2,2,2,2页,
%e 6,4,3,2,2,2,2,2,
%e 5,5,3,2,2,2,2,
%e 10,3,2,2,2,2,2,
%e 5,4,4,2,2,2,2,
%e 9,4,2,2,2,2,2,
%e 8,5,2,2,2,2,2,
%e 7,6,2,2,2,2,2,
%p cmpL:=程序(a,b)局部i;对于i从1到min(nops(a),nops(b)),如果op(i,a)<op(i、b),则返回-1;elif op(i,a)>op(i、b)然后返回1;结束条件:;结束do;如果nops(a)>nops(b),则返回1;elif nops(a)<nops(b),然后返回-1;否则返回0;结束条件:;结束进程:
%p pShell最小值:=proc(p)局部idx,j;idx:=1;对于从2到nops(p)的j,如果cmpL(op(j,p),op(idx,p))<0,则idx:=j,则do;结束条件:;结束do;返回idx;结束进程:
%p A141285rowf:=进程(n)局部p;如果n<=1,则[n];else psort:=[];p:=组合[分区](n);当nops(p)>0时,做m:=pShellMin(p);mmi:=最小值(op(op(m,p)));如果mmi>1,则mma:=最大值(op(op(m,p)));psort:=[操作(psort),排序(操作(m,p),`>`)];结束条件:;p:=底土(m=NULL,p);结束do:psort;结束条件:;结束进程:
%p表示n从1到17乘2 do shl:=A141285rowf(n);对于shl-do中的r,对于r-do printf中的k(“%d,”,k);结束操作:打印f(“\n”);结束操作:打印f(“\n”);结束日期:#R.J.Mathar,2010年12月3日
%Y参考A135010、A138121、A141285、A182731、A182742。
%Y列1给出A182733。第2列给出A182745。
%K non,tabl,更多
%O 1,1号机组
%A _Omar E.Pol_,2010年11月30日,2010年12月1日