%I#16 2014年1月27日16:24:56

%S 0,1,1,2,4,5,5,6,5,7,3,3,4,6,8,7,7,6,9,7,8,8,9,8,11,10,9,9,10,10，

%电话：11,11,12,12,13,14,14,15,9,11,13,15,10,12,12,14,16,12,15,11,14,17,12，

%U 16,13,16,14,18,12,17,13,17,14,19,14,20,15,12,18,14,21,13,19,15,13

%N a（N+1）=二进制a（N）中包含的前项数量；a（0）=0。

%C a（n+1）=#{k：二进制表示中a（n）的a（k）子串，0<=k<=n}。

%C a（A131814（n））=n，a（m）<>n，对于m<A131819（n）。

%C这是一个有趣的序列。-N.J.A.Sloane，2007年9月28日

%H R.Zumkeller，n表，n=0..25000的a（n）</a>

%H<a href=“/index/Bi#binary”>为与n的二进制展开相关的序列的索引项</a>

%e a（8）=#{a（0），a（1），a（2），a（3），a（7）}=5；

%e a（9）={a（0），a（1），a；

%e a（10）＝#{a（1），a（2），a（9）}＝3。

%o（哈斯克尔）

%o导入数据。列表（isInfixOf）

%o a131813 n=a131813_列表！！n个

%o a131813_list=0:f[[0]其中

%o f xss=y:f（bin y:xss）其中

%o y=总和$map（fromEnum.（flip isInfixOf$head xss）xss

%o bin n=如果n==0，则[]其他b:bin n’，其中（n’，b）=divMod n 2

%o——Reinhard Zumkeller，2013年5月23日

%Y参考A007088、A137655、A030308。

%K nonn，base，听，看

%0、4

%A _Reinhard Zumkeller，2007年7月18日，2008年2月1日