登录
OEIS基金会得到了OEIS用户的捐赠和西蒙斯基金会的资助。

 

标志


提示
(问候来自整数序列在线百科全书!)
A174823号 不包含1作为奇数整数一部分的分区表。 24

%我

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

查找|欢迎光临|维基|登记|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索者|最近
OEIS社区|维护人OEIS基金会。

许可协议,使用条款,隐私政策。.

上次修改时间:2021年1月27日05:19。包含340451个序列。(运行在oeis4上。)