整数序列在线百科全书（OEIS）

修订历史记录A303475型

（粗体、蓝色下划线文本是附加;褪色的红色下划线文本是删除.)
显示条目1-10|较旧的更改

A303475型

a（n）是最小的m>n，因此，出现在英文名称n中的每个字母，如果重复，也会出现在英文名m中。
(历史;已发布版本)

#17通过米歇尔·马库斯2018年4月29日星期日美国东部夏令时03:45:10

状态

检验过的

经核准的

#16通过约尔格·阿恩特2018年4月29日星期日03:16:47 EDT

状态

提出

检验过的

#15通过米歇尔·马库斯2018年4月29日周日02:56:48 EDT

状态

编辑

提出

#14通过米歇尔·马库斯美国东部时间2018年4月29日星期日02:56:41

黄体脂酮素

conv（n）={如果（n>=10^12，错误（“太大对于这程序"));

状态

提出

编辑

讨论

4月29日周日

02:56

米歇尔·马库斯：已完成

#13通过米歇尔·马库斯2018年4月26日星期四11:58:49 EDT

状态

编辑

提出

讨论

4月27日星期五

07:54

大卫·A·科内斯：谢谢，伊凡。Michel，而是错误消息：这个程序太大了？

#12通过米歇尔·马库斯2018年4月26日星期四11:58:10 EDT

黄体脂酮素

conv（n）={如果（n>=10^9, 12, 错误（“太大”）；

如果（n>=10^9，返回（concat（concat（conv（n\10^6），“十亿”），conv（n%10^9）））；

状态

提出

编辑

讨论

4月26日星期四

11:58

米歇尔·马库斯：向上一步；我们需要更多的步骤吗？

#11通过伊万·伊纳基耶夫美国东部时间2018年4月26日星期四07:53:06

状态

编辑

提出

讨论

4月26日星期四

08:07

大卫·A·科内斯：根据程序，这个序列是有限的？

08:22

伊万·伊纳基耶夫：我不认为序列是有限的，而且目光短浅，仅凭看程序就无法得出这样的结论。

08:25

大卫·A·科内斯：我想这个序列也不是有限的，但我想知道为什么程序除了给出错误外，不能处理n>10^9。

08:32

大卫·A·科内斯：由于一些数字没有标准名称，我认为这个序列是有限的。

08:36

伊万·伊纳基耶夫：我的程序说f[10^9+1]=1000000014，计算它需要0.124801秒。

08:47

大卫·A·科内斯：当然，对PARI-prog做一个小小的更改也会得到这个结果（我想说的是速度很快）。我最初想知道“太大”这个短语。找到超出“假设”上界的有限情形的例子并不能证明序列是无限的，对吗？

08:49

大卫·A·科内斯：我必须说，找到一个a（n）未定义的值n也可能不会得出这个结论。

11:45

伊万·伊纳基耶夫：如果n是k位数字m=10^3k+n包含n的所有重复数字，则序列是无限的。

#10通过伊万·伊纳基耶夫2018年4月26日星期四07:52:55 EDT

数学

in[n_]：=整数名称[n，“单词”]；

ch[n_]：=字符[StringReplace[IntegerName[n，“Words”]，{“-”->“”，“->”“}]]；

f[n_]：=模[{m=n+1}，而[Complement[ch[n]，ch[m]]={}||

并集[Select[Table[Count[ch[m]，ch[n][[i]]]-Count[ch[n]，ch[n][i]]，{i，1，Length[ch[n]]}]，#<0&]]={}，m++]；m] ；

数组[f，60](*伊万·伊纳基耶夫2018年4月26日*）

状态

经核准的

编辑

#9通过苏珊娜·凯勒2018年4月25日星期三08:34:03 EDT

状态

提出

经核准的

#8通过阿尔图·阿尔坎2018年4月25日星期三07:52:08 EDT

状态

编辑

提出