登录
埃里克·安吉利尼(Eric Angelini)的“1995”拼图:序列是由这样一个属性定义的:如果写下条目的英文名称,用字母表中的排名替换每个字母,并计算差异的绝对值,则恢复序列。
20

%I#32 2023年1月14日03:08:46

%S 1,9,9,5,5,9,9,1,5,9,1,3,13,17,1,3,13,17,9,55,9,95,9,13,13~17,1,

%电话:3.13,17,9,5,5,9,10,1,9,15,12,10,13,0,15,12,1,9,2,15,0,9,4,17,9,

%U 6,15,0,9,1,1,9,15,12,10,13,0,15,12,1,9,2,15,0,5,5,14,17,9

%N Eric Angelini的“1995”拼图:序列是由这样一个属性定义的:如果一个人写下条目的英文名称,用字母表中的排名替换每个字母,并计算差异的绝对值,那么他就会恢复序列。

%C在最初的数百万项中,数字16、19、20和22-26没有出现。在确实出现的数字中,数字11出现的频率最小-参见A133152_N.J.A.Sloane,2007年9月22日

%C From _David Applegate_,2007年9月24日:(开始)

%C数字16、19-20、22-25从未出现在序列中。下表给出了序列中可能出现的数字,以及每个数字后面可能出现的数。该表是完整的,当任何数字及其后继数字展开时,生成的对也在表中。它包含1的展开式,因此描述了所有可能的转换:

%C 0->0,1,4,5,7,9,10,12,15,21

%C 1->1,3,5,9,12

%c2->1,3,12,15

%C 3->0,1,2,3,4,5,8,9,11,12,13,14,18

%C 4->2,3,12,14

%C 5->3、5、9、10、12、14、15

%C 6->3、5、12、15、21

%C 7->7,10,17

%C 8->0,3,5,9

%C 9->0,1,2,3,4,5,6,8,9,10,12,14,15,21

%C 10->1,13,15,17

%C 11->21

%C 12->0,1,6,9,10,14,15,21

%C 13->0,3,17

%C 14->3,10,15,17

%C 15->0,3,4,9,12,15,18

%C 17->1,9,10,14,15,17,21

%C 18->3,7,9

%C 21->13,21

%C(结束)

%C序列也可以反向延伸:。。。0 21 21 13 3 0[那么我们现在的情况]1 9 9 5。。。,对应于。。。零二一一二一一三零一九九五…-_N.J.A.Sloane,2007年9月27日

%C这个序列的名字(“埃里克·安吉利尼的……拼图”)是在埃里克·安吉利尼提交它几个月后,由N.J.A.Sloane添加的。

%C从1开始,将整数映射到它的名称,然后根据A073029进行映射,计算绝对差值,拼出差值;根据需要进行迭代_Robert G.Wilson v_,2010年6月8日

%H N.J.A.Sloane,N表,N=1..40000的A(N)</a>

%H N.J.A.斯隆,<A href=“https://arxiv.org/abs/2301.03149“>《整数序列手册》,五十年后,arXiv:2301.03149[math.NT],2023年,第9页。

%e O.N.e.…N.I.N.e.…N.N.e.…F.I.V.e.…F.II.V.e。。。

%e.1.9..9.5.5.9.9.5.5.9.1.3.13.17..1..3.13.17。。。。

%e 1->“一”->15,14,5->(差值为)1,9;迭代。因此1,9->“一,九”;->15,14,5,14,9,14,5 -> 1,9,9,5,5,9; “一、九、九、五、五、九”;等-Robert G.Wilson v_,2010年6月8日

%t嵌套[Abs@差异@压扁[LetterNumber[Characters[IntegerName@#]/。“-”->“”]&/@#]&,{1},4](*_Giorgos Kalogeropouls_,2021年4月11日*)

%o(Python)

%o定义chrdist(a,b):返回abs(ord(a)-ord(b))

%o定义缺陷(nn):

%o allnames=“零、一、二、三、四、五、六、七、八、九、十、十一、十二、十三、十四、十五、十六、十七、十八、十九、二十、二十一”

%o names=allnames.split(“,”)

%o alst,aidx,last,nxt=[1,9],1,“e”,“one”

%o当len(alst)<nn时:

%o nxt=姓名[alst[aidx]]

%o alst+=[chrdist(a,b)代表a,b在zip中(last+nxt[:-1],nxt)]

%o最后,aidx=nxt[-1],aidx+1

%o返回alst[:nn]

%o打印(aupto(84))#_Michael S.Branicky_,2021年1月9日

%Y参见A131745、A131746、A130316、A133152、A138816、A133817。

%Y参见A131285(字母顺序)、A131286、A13128.7。

%K nonn,word,不错

%O 1,2号机组

%A _Eric Angelini,2007年9月20日

%E更多条款,来自N.J.A.Sloane,2007年9月20日