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