%I#52 2019年1月1日06:41:27

%S 1,20,54946818093504878732684173210282950919305995230，

%电话1822646098871352080712753448691465582891615213192206284429082，

%电话：19005819268521710254592851116360836651542565278857209856244229433782403064287484701745815301141018410914663693576388

%N a（N）=1；对于n>1，a（n）是最小的数>n，因此从a（1）到a（n。

%H David A.Corneth，n的表，n的A（n）=1..369</a>

%e设I（n）是整数1到n的串联，而T（n）则是从a（1）到a（n）的所有项的串联。那么，a（n）是附加到T（n-1）之后的最小数，当加上前导零时，它形成一个严格大于I（n）且是I（n的倍数的数字T（n）。

%e a（1）=1，所以T（1）=1。I（2）=12，所以a（2）=20，因为a（2）是最小的数，当它加到T（1）上时，会产生一个大于I（2。

%e a（2）不是08，因为不允许前导零。

%e a（3）=54，因为在a（3，I（3）=123，T（2）=120，这意味着T（3）必须是12054，因为可以被它整除但有前导数字120的大于123的最小数是12054。

%e来自David A.Corneth，2018年12月18日：（开始）

%e设concat（v）是向量v的元素的串联。为了找到n>=3的a（n），我们找到了前n-1项的串联。n=3等于120。我们还发现了前n个正整数的串联，在本例中为123。

%e级联1给出1201。1201 mod 123=94<123-8，因此串联一个不带前导零的1位数不起作用。

%我们继续计算12010 mod 123=79>=123-89，这样连接一个不带前导零的2位数就可以了，我们停下来找到a（3）=10+123-79=54。（结束）

%t getRes[m_，k_，e_]：=模块[{}，r=k-Mod[m*10^e，k]；如果[r<10^e&&m*10^e+r！=k，r+=k*（1+楼层[（10^（e-1）-r）/k]）；如果[r>10^e，r=-1]，r=-1-；r] ；f[m_，k_]：=模块[{e=1}，而[（r=getRes[m，k，e]）<0，e++]；r] ；t[n_]：=FromDigits[展平[IntegerDigits[Range[n]]]；a[1]＝1；a[n_]：=a[n]=f[FromDigits[Flatten[IntegerDigits[Parray[a，n-1]]]，t[n]]；阵列[a，20]（*_Amiram Eldar_，2018年12月13日*）

%o（PARI）first（n）={my（res=[1,20]）；for（i=3，n，res=concat（res，[nxt（i，res）]）；res}

%o nxt（n，v）={my（div=连接（[1..n]），start=连接（v））；start=10*start+1；f=1；sub=8；c=开始%div；while（c<div-sub，start*10；f*=10；sub=10*sub+9；c=启动%div）；f+div-c}

%o concatnums（v）={my（res=v[1]）；对于（i=2，#v，res*=10^#Str（v[i]）；res+=v[i]]）；re}\\_David A.Corneth_，2018年12月18日

%Y参考A007908（从1到n的数字串联）。

%K nonn，简单，基础，好

%O 1,2号机组

%A _克里斯托弗·霍尔，2018年12月12日

%E a（8）-a（18）摘自Jon E.Schoenfield_2018年12月13日

%E a（19），来自_David a.Corneth，2018年12月18日