%I#9 2017年6月13日23:02:54

%S 1,3,4,5,7,10,11,14,15,16,19,20,21,23,27,28,29,31,34,35,39,40,41,43，

%电话：46,47,50,51,52,56,57,58,60,63,64,67,68,69,72,73,74,76,81,82,83,85,88，

%U 89,92,93,94,97,98,99101105106109112113118119单位

%A288426中N个0位置；补充A288428。

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

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

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

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

%t表[w[n]，{n，0，8}]

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

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

%t压平[位置[st，1]]（*A288428*）

%Y参见A288426、A288428。

%K nonn，简单

%O 1,2号机组

%A_Clark Kimberling_，2017年6月10日