%I#14 2017年12月28日21:36:01

%S 2,3,6,7,9,10,13,14,17,18,20,21,24,25,27,28,31,32,35,36,38,39,42,43，

%电话：46,47,49,50,53,54,56,57,60,61,64,65,67,68,71,72,74,75,78,79,82,83,85，

%U 86,89,90,93,94,96,97100101103104108111112114单位

%A287772中N位为0；A050140的补充（推测和证明）。

%当n>=1时，C-1<n*r-a（n）<1，其中r=（5+sqrt（5））/4。

%C From _Michel Dekking，2017年12月28日：（开始）

%C设（d（n））为第一差序列：d（n，n）=a（n+1）-a（n）。

%C索赔：d（n）=A108103（n+1），n=1,2，…。

%C证明：作为一个单词A287772=10011001010011001100100101011……通过将斐波那契单词F=0100101001010010100中的0->1，1->00代入。。。

%C这意味着A287772是由1和11分隔的00的串联。此外，如果F中出现1001，则出现0110；如果F中发生101，则出现010。还请注意，A287772中出现00，则产生a d（n）=1（因此，d中的每个其他字母都是a 1），出现010，则产生d（n。由于1001和101根据F本身出现在1F中，并加上1（参见A001468和A282162），我们必须将d（n）=A108103（n+1）。（结束）

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

%t s=嵌套[压扁[#/.｛0->｛0，1｝，1->｛0｝｝]&，｛0｝，10]（*A003849*）

%t w=字符串联接[Map[ToString，s]

%t w1=字符串替换[w，{“0”->“1”，“1”->“00”}]

%t st=字符代码[w1]-48（*A287772*）

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

%t压扁[位置[st，1]]（*A050140推测*）

%Y参考A050140、A287772、A108103。

%K nonn，简单

%O 1,1号机组

%A _Clark Kimberling_，2017年6月3日