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

%S 2,4,7,11,17,25,38,57,851261852713965768351208174525153622，

%电话：5215750910814155832247032468206765197800141457204684，

%电话：29626542895062121889982913035841888759273688639661535747943833063012074219

%N A289165中映射00->0010、01->100、10->011的第N次迭代的长度。

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

%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，6}]]

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

%t表[StringLength[w[n]]，{n，0，z}]（*A289177*）

%Y参考A289174。

%K nonn，简单

%0、1

%A_Clark Kimberling_，2017年6月29日