%I#7 2020年4月6日22:07:13

%S 0,0,1,0,1,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0，

%T 0,0,1,0,0,0，0,1,0，0，0,0，

%U 0,0,1,0,1,1,0,0,0，0,1,0，0，0,0

%N映射的不动点00->0010，01->010，10->100，从00开始。

%C映射第n次迭代中的字母数（0和1）由A289010给出。

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

%e映射的前六次迭代：

%第00页

%电子0010

%电子0010100

%电子00101001000

%电子001010010001000100

%e 0010100100010001001000100100010

%t z=11；（*迭代次数*）

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

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

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

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

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

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

%t表[StringLength[w[n]]，{n，0，20}]（*A289004*）

%Y参见A289072、A289073、A289004。

%K nonn，简单

%O 1号机组

%A_Clark Kimberling_，2017年6月27日