(带下划线的文本是附加;删除线文本是删除.)
显示条目1-10|较旧的更改
|
|
|
|
#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日*)
|
| 状态
|
经核准的
编辑
|
|
|
|
|