%I#4 2017年6月29日14:56:34

%S 1,2,4,5,9,10,12,16,17,19,20,22,26,27,28,29,31,32,37,40,41,43,45,46，

%电话：47,48,50,54,58,62,63,65,66,67,68,70,71,72,74,75,80,85,90,94,95,96,97，

%电话：99100101103104107108110111115116119125131136

%A289174中N个0位置；补充A289176。

%C猜想：a（n）/n->2.2…，如果m表示这个数，那么当n>=1时，-1<m-a（n”）/n<m-1。

%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”->“100”，“10”->“011”}]

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

%t st=角色代码[w[z]]-48（*A289174*）

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

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

%Y参见A289174、A289176和A289177。

%K nonn，简单

%O 1,2号机组

%A_Clark Kimberling_，2017年6月29日