%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日