%I#4 2017年6月24日15:58:36

%S 2,3,5,6,7,11,12,14,15,16,17,18,19,20,22,23,24,25,26,27,29,30,31,32，

%电话：33,35,36,37,38,40,41,42,47,48,49,50,51,52,54,55,56,57,58,59,60,61,62，

%U 63、64、66、67、68、69、70、71、72、73、74、75、77、78、79、80、81、82、83

%A288861中1的N个位置；补充A288862。

%H克拉克·金伯利（Clark Kimberling），n的表，a（n）表示n=1..10000</a>

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

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

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

%t st=ToCharacterCode[w[53]]-48（*A288861*）

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

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

%Y参见A288861、A288862。

%K nonn，简单

%O 1,1号机组

%A_Clark Kimberling_，2017年6月24日