%我

%第3,5,2,4,2,2,7,3,2,2,3,2,2,2,2,6,3,2,2,5,3,2,2,2,2,2,2,2,2,2,2,2,2，

%T 2,2,5,2,2,2,2,2,2,2,4,3,2,2,2,2,2,2,2,2

%N不包含1作为奇数整数一部分的分区表。

%与A182742的想法相同，但对于奇数整数。

%H Omar E.Pol，<a href=“http://www.polprimos.com/imagesepub/polpa3dt.jpg”>分区外壳模型说明（3D视图）</a>

%数组开始：

%e 3,2,2,2,2,2,2,2,2,2,2，

%e 5,2,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,3,2,2,2,2,2,2,2，

%e 6,3,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，

%e 5,3,3,2,2,2,2,2,2，

%e 4,4,3,2,2,2,2,2,2，

%e 8,3,2,2,2,2,2,2，

%e 7,4,2,2,2,2,2,2，

%e 6,5,2,2,2,2,2,2，

%e 11,2,2,2,2,2,2，

%e 4,3,3,3,2,2,2,2,2，

%e 7,3,3,2,2,2,2,2，

%e 6,4,3,2,2,2,2,2，

%e 5,5,3,2,2,2,2,2，

%e 10,3,2,2,2,2,2，

%e 5,4,4,2,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：=proc（a，b）local i；对于从1到min的i（nops（a），nops（b））do if op（i，a）<op（i，b），则返回-1；elif op（i，a）>op（i，b）则返回1；end if；end do；如果nops（a）>nops（b）则返回1；elif nops（a）<nops（b）则返回-1；否则返回0；end if；end proc:

%p pShellMin:=proc（p）本地idx，j；idx:=1；对于从2到nops（p）的j，do if cmpL（op（j，p），op（idx，p））<0，则idx:=j；end if；end do；return idx；end proc:

%A14128285 rowf:=proc（n）local p；如果n<=1，则[n]；else psort：=[]；p:=combinat[partition]（n）；而nops（p）>0的做m:=pShellMin（p p）；mmi:=min（op（op（m，p）））；mmi>1则mma：=max（op（op（m，p））））；psort：=[op（PSORORT），sort（op（m，p），`>``）]；end if；p：=SUOPP（m=NULL，p）；end do:psort；end if；end if；end FIRT；end if；end proc:end proc:end proc:end proc在

%p代表n从1到17乘2 do shl：=A141285rowf（n）；对于shl中的r，在r do printf（“%d，”，k）；end do:printf（“\n”）；end do:printf（“\n”）；end do:#u r.J.Mathar_2010年12月3日

%参见A135010、A138121、A141285、A182731、A182742。

%Y列1给出A182733。第2列是A182745。

%不，表，更多

%O 1,1号

%奥马尔E.波尔，2010年11月30日，2010年12月1日