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

 

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

的修订历史记录A190899号

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

显示条目1-10|较旧的更改
A190899号 具有递归自共轭分区的正整数。
(历史;已发布版本)
#27通过N.J.A.斯隆2018年11月4日星期日00:28:07 EDT
状态

提出

经核准的

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

编辑

提出

#25通过迈克尔·德弗利格2018年10月30日星期二20:14:52 EDT
数学

f[w_]:=块[{conf,durfee},conf[x_]:=Table[LengthWhile[#1,#>=j&],{j,#2}]&@@{x,Max[x]};durfee[x_]:=如果[conj@x==x,块[{k=Length@x},While[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,#]]&@durfee@w]];选择[Range@40,AnyTrue[FixedPoint[f,#,12]&/@Integer Partitions@#,ListQ]&](*迈克尔·德弗利格2018年10月23日*)

讨论
10月30日星期二 20:15
迈克尔·德弗利格:更快的计划。
#24个通过迈克尔·德弗利格2018年10月30日星期二20:13:59 EDT
例子

12的分区{4,4,2,2}是自共轭的,由杜尔弗雷杜菲因此12的平方是按顺序排列的。

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

数学

f[w_]:=块[{conj,杜尔弗雷杜菲},conf[x_]:=表格[LengthWhile[#1,#>=j&],{j,#2}]@@{x,Max[x]};杜尔弗雷杜菲[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,#]]&@杜尔弗雷杜尔菲@w]];选择[Range@40,AnyTrue[FixedPoint[f,#,12]&/@Integer Partitions@#,ListQ]&](*迈克尔·德弗利格2018年10月23日*)

f[n_]:=块[{w={n},c},c[x_]:=Apply[Times,Most@x-Reverse@Accumulate@Reverse@Rest@x];收获[Do[Which[And[Length@w==2,SameQ@@w],母猪[w];断奶[],长度@w==1,母猪[w];附加到[w,1],c[w]>0,母猪[w];附加到[w,1],真,母猪[w];w=MapAt[1+#&,Drop[w,-1],-1]],{i,无限}][[-1,1]];使用[{n=11},TakeWhile[Union@Flatten@Array[Map[Total@MapIndexed[#1^2*2^First[#2-1]&,#]&,f[#]]&,n],#<=n^2&]](*迈克尔·德弗利格2018年10月30日*)

状态

提出

编辑

讨论
10月30日星期二 20:14
迈克尔·德弗利格:更正了我的拼写错误
#23通过迈克尔·德弗利格2018年10月23日星期二美国东部夏令时22:33:08
状态

编辑

提出

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

发件人迈克尔·德弗利格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不在序列中。(结束)

状态

提出

编辑

#21通过迈克尔·德弗利格2018年10月23日星期二美国东部夏令时22:19:32
状态

编辑

提出

#20通过迈克尔·德弗利格2018年10月23日星期二美国东部夏令时22:19:19
数学

f[w_]:=块[{conf,durfree},conf[x_]:=Table[LengthWhile[#1,#>=j&],{j,#2}]&@@{x,Max[x]};durfree[x_]:=如果[conj@x==x,块[{k=Length@x},While[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@40,AnyTrue[FixedPoint[f,#,12]&/@Integer Partitions@#,ListQ]&](*迈克尔·德弗利格2018年10月23日*)

状态

提出

编辑

#19通过查理·奈德2018年10月22日星期一美国东部夏令时08:05:25
状态

编辑

提出

#18通过查理·奈德2018年10月22日星期一美国东部夏令时08:04:44
评论

整数可表示为a_0^2+2*a_1^2+…+2^k*a_k^2与 [a_0(零)>=,a_1>= ... >=, ..,(_k) ] k>=0. - _查理-挤压 内德_,10月隔板. [请参见 21基思 2018链接,第页.6]

状态

提出

编辑

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

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

上次修改时间:美国东部夏令时2024年4月20日02:14。包含371798个序列。(在oeis4上运行。)