提出
经核准的
编辑
R: =1:x:=1:S:={1}:
n从1到100 do
ns:=转换(n,字符串);
从1到y
如果成员(y,S),则为下一个fi;
如果SearchText(ns,convert(x+y,string))<>0,则
R: =R,y;x: =y;S: =S并集{y};打破
fi(菲涅耳)
日
日期:
R#罗伯特·伊斯雷尔2023年7月4日
基础,非n,更多,改变
1, 9, 3, 10, 4, 11, 5, 2, 6, 13, 87, 23,89,24,90,25,91,26,92,27,93,28,94,29,95,30,96,31,97中,1632, 98,1733, 99,1834, 100,1935, 101,2036, 102,2137, 103,38,104,39,105,40,106,41,7,42,8,43,109,44,110,45,111,46,12,47,113,48,14,49,2215
a[1]=1;a[n_]:=a[n]=模块[{k=2},While[!FreeQ[Array[a,n-1],k]||!StringContainsQ[ToString[a[n-1]+k],ToString[1]],k++];k] ;数组[a,100](*阿米拉姆·埃尔达尔2023年7月4日*)
米歇尔·马库斯:埃里克说你是对的。查看电子邮件
n=1是总和的子字符串 1++9 = 10
n=2是总和的子字符串 9++3 = 12
n=3 是总和的子字符串 3 + 10 = 13
n=4 是和10的子串++4 = 14
n=5 是总和的子字符串 4 + 11 = 15
n=6 是总和11的子字符串++5 = 16
阿米拉姆·埃尔达尔:我试图为此编写一个程序,但我得到的是a(13)=89,而不是97。事实上,23+89=112在23+97=120之前包含12。你能确认吗?谢谢。