(右)A121805号<-data.frame(n=seq(从=1到=2137453),a=整数(2137453));A121805号$a[1]=1;for(i in seq(from=2,to=2137453)){LSD=A121805号$a[i-1]%%10;k=1;while(k!=作为整数(子字符串(A121805号$a[i-1]+LSD*10+k,1,1)){k=k+1;如果(k>9)中断}A121805号美元[i]=A121805号$a[i-1]+LSD*10+k}#西蒙·德默斯2017年10月19日