%I#19 2019年4月12日08:13:41

%S 1,1,2,3,3,5,4,4,5,5,8,7,8,6,5,7,5,7，10,9,11,15,10,9,13,12,17,11，

%T 9,7,7,8,11,8,13,11,16,15,10,17,18,18,21,22,15,14,12,19,18,19，

%U 24,22,20,24,25,21,25,17,14,11,11,13,12,17,16,21,15,11,19,26,17,23,22,24

%N a（1）=1。a（n）=以二进制形式写入时为二进制n的子串的早期项的数目。

%C首次出现k:1、3、4、7、6、14、12、11、21、20、22、28、26、50、23、39、29、44、52、57、46、47、77、55、59。。。

%H Robert Israel，n的表，a（n）表示n=1..10000</a>

%e二进制a（1）=1、二进制a（2）=1，二进制a（3）=10、二进制a“7”=100和二进制a“8”=100都是二进制9=1001的子串。所以a（9）=5。

%p A[1]：=1：

%p S[1]：=“1”：

%p代表从2到100 do的n

%p B:=转换（转换（n，二进制），字符串）；

%p A[n]：=nops（选择（t->SearchText（S[t]，B）>0，[$1..n-1]））；

%p S[n]：=转换（转换（A[n]，二进制），字符串）；

%日期：

%p序列（A[i]，i=1..100）；#_罗伯特·伊斯雷尔，2019年4月11日

%t f[s_]：=追加[s，长度@选择[s，字符串位置[ToString@FromDigits@IntegerDigits[长度@s+1，2]，ToString@FromDigits@IntegerDigits[#，2]]！={} & ] ]; Nest[f，{1}，79]（*RobertG.Wilson v_，2006年11月1日*）

%K nonn，看

%氧1,3

%A _罗伊查询，2006年10月25日

%E更多条款摘自Robert G.Wilson v_，2006年11月1日