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

用户对话:Michael De Vlieger

从奥伊斯维基
跳转到:导航搜索

A3555

我非常感谢对我的顺序做出的贡献。比尔·麦克拉钦0:05,2015年9月16日(UTC)

比尔,我的荣幸。我喜欢帮助定义/提炼,一般帮助序列。我分享你对数学的热爱,非常喜欢这个网站。这是一个非常有用的资源,我很荣幸能做出贡献。(迈克)

194602

嗨,米迦勒,
谢谢你的贡献。你增加了以下程序:
LIM=12;排序[ FooDigi[A],2)/@ MAP[I[长度@α==0,{ 0 },平坦] @多数“}”和@ Riffle [A],表[0,长度],],[表[1,α--1 ] ],Real@ map [排序,排序@整数分区] LIM]。1>无,{ 2 }〕
你能链接一下Mathematica为一个小的LIM 12生成的例子吗?按这个序列定义的顺序计算实际序列或整数分区吗?
老实说,这个程序太短了,看起来太好了,因为Mathematica似乎使用了不同的顺序:
在这里5的分区给出如下:{{ } 5,{4},1},{3,2},{3,1,1},{2,2,1},{2,1,1,1},{1,1,1,1,1}}。
但是在我的序列中定义的顺序是完全不同的:{{1,1,1,1,1},{2,1,1,1},{3,1,1},{2,2,1},{4},1},{3,2},{ 5 }}问候语,蒂尔曼皮耶斯21:54,2016年2月11日(UTC)

Piesk先生,您好!

这就是它的运作方式:

我们从分区开始。N=通过整数分割. 为了在指定的顺序中获得分区。194602我们必须对它进行排序(我不确定这是最好的方法,但它有效)。因此我们得到:

反向@ map [排序,排序@整数分割] @

(我们必须地图排序对于主列表中的单个列表,并对分区集列表进行排序,然后在我们完成后将其反转以使其成为您想要的方式。N=12:

{{1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1}, {1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2}, {1, 1, 1, 1, 1, 1, 1, 1, 1, 3}, {1, 1, 1, 1, 1, 1, 1, 1, 2, 2}, {1, 1, 1, 1, 1, 1, 1, 1, 4}, {1, 1, 1, 1, 1, 1, 1, 2, 3}, {1, 1, 1, 1, 1, 1, 2, 2, 2}, {1, 1, 1, 1, 1, 1, 1, 5}, {1, 1, 1, 1, 1, 1, 2, 4}, {1, 1, 1, 1, 1, 1, 3, 3}, {1, 1, 1, 1, 1, 2, 2, 3}, {1, 1, 1, 1, 2, 2, 2, 2}, {1, 1, 1, 1, 1, 1, 6}, {1, 1, 1, 1, 1, 2, 5}, {1, 1, 1, 1, 1, 3, 4}, {1, 1, 1, 1, 2, 2, 4}, {1, 1, 1, 1, 2, 3, 3}, {1, 1, 1, 2, 2, 2, 3}, {1, 1, 2, 2, 2, 2, 2}, {1, 1, 1, 1, 1, 7}, {1, 1, 1, 1, 2, 6}, {1, 1, 1, 1, 3, 5}, {1, 1, 1, 2, 2, 5}, {1, 1, 1, 1, 4, 4}, {1, 1, 1, 2, 3, 4}, {1, 1, 2, 2, 2, 4}, {1, 1, 1, 3, 3, 3}, {1, 1, 2, 2, 3, 3}, {1, 2, 2, 2, 2, 3}, {2, 2, 2, 2, 2, 2}, {1, 1, 1, 1, 8}, {1, 1, 1, 2, 7}, {1, 1, 1, 3, 6}, {1, 1, 2, 2, 6}, {1, 1, 1, 4, 5}, {1, 1, 2, 3, 5}, {1, 2, 2, 2, 5}, {1, 1, 2, 4, 4}, {1, 1, 3, 3, 4}, {1, 2, 2, 3, 4}, {2, 2, 2, 2, 4}, {1, 2, 3, 3, 3}, {2, 2, 2, 3, 3}, {1, 1, 1, 9}, {1, 1, 2, 8}, {1, 1, 3, 7}, {1, 2, 2, 7}, {1, 1, 4,} {{ } } } {{}{}}}{}{}}}{}}{}}}{{}}}{}}{}}}{{}}}{}}{{}}}{}}{{}}}{}}}{}}{{}}}{}}}{{}}}{}}{{}}}{}}}{{}}}{}}{{}}}{}}}{{}}}{}}}{{}}}{}}}{{}}}{}}}{{}}}{}}}{{}}}{}}}{{}}}{}}}{}}}{{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}{}}}}{}}}6 },{ 1, 2, 3,6 },{ 2, 2, 2,6 },{ 1, 1, 5,5 },{1, 2, 4,5 },{1, 3, 3,5 },{2, 2, 3,2, 2, 3。

我们对1的不感兴趣,所以我用替换所有在本声明中:反转@映射[排序,排序@整数分割] Lim]。1>无. 这简单地忽略了1个结果:

{{}, {2}, {3}, {2, 2}, {4}, {2, 3}, {2, 2, 2}, {5}, {2, 4}, {3, 3}, {2, 2, 3}, {2, 2, 2, 2}, {6}, {2, 5}, {3, 4}, {2, 2, 4}, {2, 3, 3}, {2, 2, 2, 3}, {2, 2, 2, 2, 2}, {7}, {2, 6}, {3, 5}, {2, 2, 5}, {4, 4}, {2, 3, 4}, {2, 2, 2, 4}, {3, 3, 3}, {2, 2, 3, 3}, {2, 2, 2, 2, 3}, {2, 2, 2, 2, 2, 2}, {8}, {2, 7}, {3, 6}, {2, 2, 6}, {4, 5}, {2, 3, 5}, {2, 2, 2, 5}, {2, 4, 4}, {3, 3, 4}, {2, 2, 3, 4}, {2, 2, 2, 2, 4}, {2, 3, 3, 3}, {2, 2, 2, 3, 3}, {9}, {2, 8}, {3, 7}, {2, 2, 7}, {4, 6}, {2, 3, 6}, {2, 2, 2, 6}, {5, 5}, {2, 4, 5}, {3, 3, 5}, {2, 2, 3, 5}, {3, 4, 4}, {2, 2, 4, 4}, {2, 3, 3, 4}, {3, 3, 3, 3}, {10}, {2, 9}, {3, 8}, {2, 2, 8}, {4, 7}, {2, 3, 7}, {5, 6}, {2, 4, 6}, {3, 3, 6}, {2, 5, 5}, {3, 4, 5}, {4, 4, 4}, {11}, {2, 10}, {3, 9}, {4, 8}, {5, 7}, {6, 6}, {12}}

因此,我们有1个迭代次数的列表。

这将产生一张“γ- 1“1”γ是纯函数中的“时隙”或变量:表〔1,α- 1〕. 但是我需要对表进行分隔,假设我有这样的列表:{ 2, 3 },我将得到{{ 1 },{ 1, 1 }},而这将变成{ 1, 1, 1 },结果是错误的。所以我用浅滩用一个零点分离输出:Riffle [α],表[ 0,长度@α] ]. 现在,这将给我们{{ 1 },0,{ 1, 1 },0 }。我们不需要最后0个,所以我用大多数消除最后一个零。因为我可能有一个空列表,比如{},所以我必须使用if语句:如果[长度]α==0,{ 0 },平坦的@最“@”处理这些案件。因此,代码现在看起来是这样的:

图[If [长度@α==0,{ 0 },平坦] @多数@ y]和@ Rffffle [O],表[ 0,长度],] [MAP[表1,α--4] ],Real@ map [排序,排序@整数分割] 12 ]。1>无,{ 2 }〕

这样输出:

{{0}, {1}, {1, 1}, {1, 0, 1}, {1, 1, 1}, {1, 0, 1, 1}, {1, 0, 1, 0, 1}, {1, 1, 1, 1}, {1, 0, 1, 1, 1}, {1, 1, 0, 1, 1}, {1, 0, 1, 0, 1, 1}, {1, 0, 1, 0, 1, 0, 1}, {1, 1, 1, 1, 1}, {1, 0, 1, 1, 1, 1}, {1, 1, 0, 1, 1, 1}, {1, 0, 1, 0, 1, 1, 1}, {1, 0, 1, 1, 0, 1, 1}, {1, 0, 1, 0, 1, 0, 1, 1}, {1, 0, 1, 0, 1, 0, 1, 0, 1}, {1, 1, 1, 1, 1, 1}, {1, 0, 1, 1, 1, 1, 1}, {1, 1, 0, 1, 1, 1, 1}, {1, 0, 1, 0, 1, 1, 1, 1}, {1, 1, 1, 0, 1, 1, 1}, {1, 0, 1, 1, 0, 1, 1, 1}, {1, 0, 1, 0, 1, 0, 1, 1, 1}, {1, 1, 0, 1, 1, 0, 1, 1}, {1, 0, 1, 0, 1, 1, 0, 1, 1}, {1, 0, 1, 0, 1, 0, 1, 0, 1, 1}, {1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1}, {1, 1, 1, 1, 1, 1, 1}, {1, 0, 1, 1, 1, 1, 1, 1}, {1, 1, 0, 1, 1, 1, 1, 1}, {1, 0, 1, 0, 1, 1, 1, 1, 1}, {1, 1, 1, 0, 1, 1, 1, 1}, {1, 0, 1, 1, 0, 1, 1, 1, 1}, {1, 0, 1, 0, 1, 0, 1, 1, 1, 1}, {1, 0, 1, 1, 1, 0, 1, 1, 1}, {1, 1, 0, 1, 1, 0, 1, 1, 1}, {1, 0, 1, 0, 1, 1, 0, 1, 1, 1}, {1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1}, {1, 0, 1, 1, 0, 1, 1, 0, 1, 1}, {1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 1}, {1, 1, 1, 1, 1, 1, 1, 1}, {1, 0, 1, 1, 1, 1, 1, 1, 1}, {1, 1, 0, 1, 1, 1, 1, 1, 1}, {1, 0, 1, 0, 1, 1, 1, 1, 1, 1}, {1, 1, 1, 0, 1, 1, 1, 1, 1}, {1, 0, 1, 1, 0, 1, 1, 1, 1, 1}, {1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 1}, {1, 1, 1, 1, 0, 1, 1, 1, 1}, {1, 0, 1, 1, 1, 0, 1, 1, 1, 1}, {1, 1, 0, 1, 1, 0, 1, 1, 1, 1}, {1, 0, 1, 0, 1, 1, 0, 1, 1, 1, 1}, {1, 1, 0, 1, 1, 1, 0, 1, 1, 1}, {1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1}, {1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1}, {1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1}, {1, 1, 1, 1, 1, 1, 1, 1, 1}, {1, 0, 1, 1, 1, 1, 1, 1, 1, 1}, {1, 1, 0, 1, 1, 1, 1, 1, 1, 1}, {1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1}, {1, 1, 1, 0, 1, 1, 1, 1, 1, 1}, {1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1}, {1, 1, 1, 1, 0, 1, 1, 1, 1, 1}, {1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1}, {1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1}, {1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1}, {1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1}, {1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1}, {1, 1, 1, 1, 1, 1, 1, 1, 1, 1}, {1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1}, {1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1}, {1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1}, {1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1 },{ 1, 1, 1,1, 1, 0,1, 1, 1,1, 1 },{1, 1, 1,1, 1, 1,1, 1, 1,1, 1 }

这些是二进制数的数字:

{ 0, 1, 11,101, 111, 1011,10101, 1111, 10111,11011, 101011, 1010101,11111, 101111, 110111,1010111, 1011011, 10101011,101010101, 111111, 1011111,1101111, 10101111, 1110111,10110111, 101010111, 11011011,101011011, 1010101011, 10101010101,1111111, 10111111, 11011111,101011111, 11101111, 101101111,101011111, 11101111, 101101111,y,y,y,y,y,y,y,y,y,γ,y,γ,γ,}

所以我们转换它们并使用排序排序[从数字] [*,2 ]和/ @…]*:

{ 0, 1, 3,5, 7, 11,15, 21, 23,27, 31, 43,47, 55, 63,85, 87, 91,95, 111, 119,127, 171, 175,183, 191, 219,223, 239, 255,341, 343, 347,351, 367, 375,351, 367, 375,y,y,y,y,y,y,y,y,y,y,y,y,y,y}

  • 注意,我原来的文本是一个错误:“删除重复使用联邦数字〔2〕“引用另一个序列的第二个和中止的解。我想我已经擦掉了我写的与第二个解决方案相关的所有东西,但是没有注意到。- MTD 14 FEB 2016

米迦勒·德利格勒2016年2月11日23时35分(UTC)

您好,谢谢您的详细说明。不幸的是,我不完全理解它,因为Mathematica对我来说很陌生。
开始时,对分区进行排序,使它们按正确的顺序排列,然后将它们转换成整数。仅仅按原始顺序转换它们不是更容易,然后只对整数进行排序吗?
我不明白你是如何产生重复的,必须在以后删除(使用联合删除重复)。
总而言之,我认为最好有两个独立的函数:一个按顺序排列一组分区。194602不改变它们,并且将单个分区转换为194602.
BTW:真正有趣的任务是编写转换密钥号的函数。194602价值观,反之亦然。(我用Python写了一些难看的和慢的。)
列中的规律性三角形和从那里链接的三角形表明,可以借助于A026807. 我希望我能尽快找到时间。
问候语,蒂尔曼皮耶斯16:02,2016年2月13日(UTC)

谢谢您!你知道,这个方法确实可以用另一种方式来做,而且你所指定的方法可能更有效。这个问题对我来说很有趣,我会回到它,通过镜头检查它。A026807. 现在,我平滑了程序,按照你的建议,处理“原位”分区,然后在转换后对它们进行排序。
我在解释上犯了一个错误。我没有使用联盟在这一努力中,只是攻击了你写的一个类似的序列,但由于中断,我没有完成。请忽略这一点(我已经注意到并用星号纠正了它)。
这里有一个新的,更平滑的程序:

LIM=60;l排序[ FooDigi](Reope},2)//@映射[If [长度@α==0,{ 0 },平坦] @多数“}”和“@ RIFFLE”[O],表[0,长度@α] ],[map ] [表[1,α-1 ]和,^排序@整数分割] LIM/。1>无,{ 2 } }〕

这一过程在29.3126秒和29.9834秒之间处理n=60(966467项),米迦勒·德利格勒14:16,2016年2月14日(UTC)

伟大我允许自己将其添加到序列中(用LIM=12),所以它回到状态编辑。(我允许自己缩进你的答案)问候,蒂尔曼皮耶斯17:48,2016年2月17日(UTC)
我已经使用了Python代码A026807从序列。最后,我可以在不创建和排序分区列表的情况下,从键计算值,反之亦然。蒂尔曼皮耶斯00∶13,2016年2月29日(UTC)
这是一个有趣的开发,当工作量允许时将返回问题。我想这是非常有效的!米迦勒·德利格勒13:55,2016年2月29日(UTC)

数基

我最喜欢的数字系统是对称三进制. 我也喜欢阶乘数制因子的表示)。-丹尼尔骗局17:36,2016年4月1日(UTC)

交换逗号

你好,米迦勒,(2016年6月10日)谢谢你最近在这里添加的Mathematica代码。HTTPS:/OEIS.OR/A27 4051.

我在这里读到,你喜欢计算序列——而且我对你有挑战,因为我无法计算任何东西——而不是说我的私生活:

A= 1,21,12,32,33,914,72111,15,923,21302,2172,18172,312,122,132,122,152,3,75,75,34,93701311121731,1327 623,6319329 721727 81141,…

B= 2、11、13、23、29、31、17、41211、19、532、101032、227、107、9710923、1323、923、125、1257、37、43、59、47、307、312、127、137、137、263、139、99、27、127、127、28、114149、…

A是词典编纂的非素数序列的第一个序列[没有重复],使得所有与逗号接触的数字对的同时交换产生素数序列(或者没有重复)[这里B]

例:239(b)是素数,它的第一位数字“2”来自312的最后“2”(上面,左边,在A)-它的末尾数字“9”来自942的第一位数字“9”(在它上面,右边,在A中)——它的中心数字“3”来自332的中心数字“3”(在它的正上方,在A中,没有变化,因为这个“3”的332与A的逗号没有联系)。

我用手计算了A和B,我希望我没有过快。

如果您能检查并扩展A,我将不胜感激。如果您想去,请记住这一点:

-目的是总是用一个未被使用的A(n)整数来扩展A,但这不会导致矛盾。即使这个A(n)强迫一个巨大的A(n+1)。A和B当然是联系在一起的,但主要关心的是A,B的构造如下。是的,有时B在A中也有一个数字或另一个数字,并且你会发现在寻找下一个A(n)时有时需要一些(小)回溯。

最后一句话,一个没有零点的整数,当然是零(因为这个零将开始一个整数B,这是不可能的)。

自由地回答这个问题或者计算任何东西,当然,我在你的页面上有点入侵者!

最好的,艾瑞克安吉丽尼(EIC.AGANNIG:SkyNET.be)


埃里克,我很乐意帮忙。这个周末有一些事情和星期一的最后期限,但之后会看一看!(迈克)


你好,迈克,

谢谢你的快速回答——在此期间,我的一个朋友计算了+/-160项(计算机花了36个小时才找到那些)——我的朋友在程序变得非常缓慢的时候停止了程序。在37个条件下,他的名单与我的背离了——事实上,我的172个(A)应该是171个。如果你仍然有勇气去检查和扩展这个序列,请做——否则不要浪费时间在这个上面!最好的,

A和B(由Jean Marc Falcoz):A= {1,21,12,32,33,91,14,72111,15,923 2130110221721,[删除-参见链接到OEIS以下]

B= {2,11,13,23,29,31,17,41211,19,532,23,101,32,227,229,[删除-参见下面链接到OEIS ]


好了,迈克,这是现在HTTPS:/OEIS.OR/A228092最好。