登录
这个网站是通过捐款来支持的。OEIS基金会.

 

标志


提示
问候整数序列的在线百科全书!)
A990000 无递归自共轭划分的正整数。
2, 5, 7、8, 13, 14、19, 20, 23、26, 29, 30、32, 35, 39、41, 46, 50、52, 53, 62、63, 65, 74、77, 92, 95、104, 107, 109、110, 116, 119、128, 158, 159、128, 158, 159、γ、γ 列表图表参考文献历史文本内部格式
抵消

1,1

评论

具有递归自共轭分区的数字在A89899. 详情请参阅该序列或基思参考。

在参考文献中证明,该列表是详尽的。

链接

n,a(n)n=1…45的表。

William J. Keith递归自共轭划分,整数11a,(2011)第12条(11页)。

例子

米迦勒·德利格勒,10月23日2018:(开始)

5,{ 5 },{4},1},{3,2},{3,1,1},{2,2,1},{2,1,1,1},{1,1,1,1,1}}中的任何一个都不是自共轭的,因此在序列中有5个。

12的分区{4,4,2,2}是自共轭的,由Dur费方格构成,因此12不在序列中。

30的分区{8,5,5,4,1,1,1}是自共轭的。我们消除了Dur费方{4,4,4,4},它使我们具有自共轭的{41,1,1,1},但是当我们从这里消除Durfor平方{ 1 }时,我们得到{1,1,1},这不是自共轭的。没有其他自共轭分区30,因此30是在序列中。

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

Mathematica

f[n_] := Block[{w = {n}, c}, c[x_] := Apply[Times, Most@ x - Reverse@ Accumulate@ Reverse@ Rest@ x]; Reap[Do[Which[And[Length@ w == 2, SameQ @@ w], Sow[w]; Break[], Length@ w == 1, Sow[w]; AppendTo[w, 1], c[w] > 0, Sow[w]; AppendTo[w, 1], True, Sow[w]; w = MapAt[1 + # &, Drop[w, -1], -1] ], {i, Infinity}] ][[-1, 1]] ]; With[{n = 30}, Complement[Range@ Last@ #, #] &@ TakeWhile[Union@ Flatten@ Array[Map[Total@ MapIndexed[#1^2*2^First[#2 - 1] &, #] &, f[#]] &, n], # <= n^2 &]] (*米迦勒·德利格勒10月30日2018*)

交叉裁判

囊性纤维变性。A89899.

语境中的顺序:A032402 A99326 A280848*A21657 A02067 A243171

相邻序列:A80897 A80898 A89899*A90901 A90902 A90903

关键词

诺恩菲尼全部

作者

约翰·W·莱曼5月23日2011

地位

经核准的

查找γ欢迎γ维基γ注册γ音乐γ情节2γ演示γ指数γ浏览γ更多γ网络摄像机
贡献新的SEQ。或评论γ格式γ样式表γ变换γ超级导引头γ最近
OEIS社区通过保持OEIS基金会

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

最后修改11月17日19:22 EST 2019。包含329241个序列。(在OEIS4上运行)