%I#4 2017年6月28日22:25:52

%S 3,7,10,14,16,17,20,23,24,26,27,30,32,33,36,38,41,42,45,47,48,50,51，

%电话54,56,57,59,60,63,65,68,70,71,73,74,77,78,81,83,84,86,87,90,91,94,96，

%电话：97,99100103107108111112115117118121123124126127

%A289112中1的N个位置；补充A289113。

%C猜想：a（n）/n->1.87…，如果m表示这个数，那么-2<a（n。

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

%tz=11；（*迭代次数*）

%ts={0,0}；w[0]=StringJoin[Map[ToString，s]]；

%t w[n_]：=字符串替换[w[n-1]，{“00”->“0010”，“01”->“011”，“10”->“001”}]

%t表格形式[表格[w[n]，{n，0，10}]]

%t st=ToCharacterCode[w[z]]-48（*A289112*）

%t压扁[位置[st，0]]（*A289113*）

%t压扁[位置[st，1]]（*A289114*）

%Y参考A289112、A289113。

%K nonn，简单

%O 1,1号机组

%A_Clark Kimberling_，2017年6月28日