%I#17 2018年4月29日03:45:10

%序号14,21,13,14,25,16,17,18,19,1311112,37,74,57,67,77,78,79,21120，

%电话：122122124125126127128125,31125128132134135136137138，

%电话：135,412412414145,64,74148,94,5145152154155156158155,61

%N a（N）是最小的m>N，因此，出现在英文名称N中的每个字母，只要重复，也会出现在英文名m中。

%H Altug Alkan，n的表，n=1..10000的a（n）</a>

%e a（2）=21，因为2是2，21是21，其中两个字母的所有字母都出现在21中，而这不会发生在21之前。

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

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

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

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

%t阵列[f，60]（*_Ivan N.Ianakiev，2018年4月26日*）

%o（PARI）

%o v1=[“一”、“二”、“三”、“四”、“五”、“六”、“七”、“八”、“九”]；

%o v2=[“十一”、“十二”、“十三”、“十四”、“十五”、“十六”、“十七”、“十八”、“十九”]；

%o v3=[“十”，“二十”，“三十”，“四十”，“五十”，“六十”，“七十”，“八十”，“九十”]；

%o conv（n）={如果（n>=10^12，错误（“对于这个程序来说太大”）；

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

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

%o如果（n>=10^3，返回（concat（concat（conv（n\10^3），“千”），conv（n%10^3，））；

%o如果（n>=10^2，返回（concat（concat（conv（n\100），“一百”），conv（n%100）））；

%o如果（n>=20，返回（concat（v3[n\10]，conv（n%10））；）；

%o如果（n>=10，如果（n==10，返回（v3[n\10]），返回（v2[n%10]）；）；

%o如果（n，返回（v1[n]），返回（“”）；

%o}（o）

%o mycmp（sa，sb）={my（vsa=Vec（sa），vsb=Vec

%o a（n）={my（m=n+1，sn=conv（n），sm=conv

%Y参考A303380。

%K nonn，单词，看

%O 1,1号机组

%马库斯，2018年4月24日