登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)

修订历史记录A190900型

(带下划线的文本是附加;删除线文本是删除.)

显示条目1-10|较旧的更改
A190900型 没有递归自共轭分区的正整数。
(历史;已发布版本)
#23通过米歇尔·马库斯2018年10月31日星期三04:38:48 EDT
状态

已审核

经核准的

#22通过乔格·阿恩特2018年10月31日星期三02:31:47 EDT
状态

提出

已审核

#21通过迈克尔·德弗利格2018年10月30日星期二20:17:41 EDT
状态

编辑

提出

#20通过迈克尔·德弗利格2018年10月30日星期二美国东部夏令时20:17:15
例子

12的分区{4,4,2,2}是自共轭的,由杜尔弗雷杜菲因此12号方格不在序列中。

30的分区{8,5,5,4,1,1}是自共轭的。我们消除了杜尔弗雷杜菲正方形{4,4,4,1}留给我们的是{4,1,1},它是自共轭的,但当我们消除杜尔弗雷杜菲从这个方块{1}开始,我们剩下的是{1,1,1},它不是自共轭的。没有其他30的自共轭分区,因此序列中有30个。

数学

(f)[w个n个_]:=块[{联合,杜尔弗雷w个= {n个},c(c)},联合c(c)[x_]:=应用[长度While[#1, # >=j个&], {j个, #2}] & @@ {x个次数,最大值[大多数@x个-反向@累计@反向@休息@x个]};无硬度的];收割[[哪个[x个_]以下为:=如果而且[联合长度@x个w个==x个2,阻止[{k个=SameQ公司@@w个],母猪[w个];休息[],长度@x个},While期间[南德[k个>0w个==1,全部正确母猪[采取w个];附加到[x个w个,k个], # >=k个&]],k个--];k个1],0];哪个c(c)[整数Q@w个,] >0,工会@w个== {长度@母猪[w个},];附加到[w、,1],真的,如果[# ==0,0,如果母猪[w个];w个=地图位置[联合@ # == #, #,0] &@1+ # &,删除[联合@w个, #]] &@杜尔弗雷@w个]];选择, -1], -1] ], {,无穷}] ][[-1,1]] ];使用[{n个=30},补体[范围@最后@ #, #] &@TakeWhile(拍摄时)[工会@压扁@47,任何正确的阵列[固定点地图[总计@地图索引[#1^2*2^弗斯特[#2-1] &, #] &,(f), #,12] & /@整数分区@#中,列表Q] &] (* _[#]] &,n个], # <=n个^2&]] (* _Michael De Vlieger_,10月23302018 *)

状态

经核准的

编辑

讨论
10月30日星期二 20:17
迈克尔·德弗利格:更正拼写错误,程序现在生成所有术语。
#19通过N.J.A.斯隆2018年10月25日星期四21:37:09 EDT
状态

已审核

经核准的

#18通过彼得·卢什尼2018年10月25日星期四13:26:25 EDT
状态

提出

已审核

#17通过米歇尔·马库斯2018年10月24日星期三00:46:18 EDT
状态

编辑

提出

#16通过米歇尔·马库斯2018年10月24日星期三00:45:43 EDT
链接

William J.Keith,<a href=“http://网址:www数学.韦斯特加科尔盖特.edu/~整数/2009年10月/2009年10月第11a卷.pdf格式html格式“>递归自共轭分区,INTEGERS 11A,(2011)第12条(11页)。

状态

提出

编辑

讨论
10月24日星期三 00:46
米歇尔·马库斯:链接已消失,因此让我们查看卷索引(可以看到pdf)
#15通过迈克尔·德弗利格2018年10月23日星期二美国东部夏令时22:31:16
状态

编辑

提出

#14通过迈克尔·德弗利格2018年10月23日星期二美国东部夏令时22:31:14
例子

发件人迈克尔·德弗利格2018年10月23日:(开始)

5,{{5},{4,1},}3,2},2,2,1},[2,1,1]},[1,1,1,1,1}}的分区都不是自共轭的,因此5在序列中。

12的分区{4,4,2,2}是自共轭的,由Durfree正方形组成,因此12不在序列中。

30的分区{8,5,5,4,1,1}是自共轭的。我们去掉了Durfree平方{4,4,4,1},它给我们留下了{4,1,1}这是自共轭的,但当我们从中去掉Durfrees平方{1}时,我们剩下的是{1,1,1}这不是自共轭的。没有其他30的自共轭分区,因此序列中有30个。

32的两个自共轭分区都不是递归的。因此32在序列中。(结束)

数学

f[w_]:=块[{conf,durfree},conf[x_]:=Table[LengthWhile[#1,#>=j&],{j,#2}]&@@{x,Max[x]};durfree[x_]:=如果[cong@x==x,块[{k=Length@x},而[Nand[k>0,AllTrue[Take[x,k],#>=k&]],k--];k] ,0];其中[IntegerQ@w,0,Union@w=={Length@w},w,True,If[#==0,0,If[Conf@#==#,#,0]&@Drop[conf@w,#]]&@durfree@w]];选择[Range@47,AnyTrue[FixedPoint[f,#,12]&/@Integer Partitions@#,ListQ]&](*迈克尔·德弗利格2018年10月23日*)

状态

经核准的

编辑

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

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

上次修改时间:美国东部夏令时2024年4月24日09:18。包含371935个序列。(在oeis4上运行。)