%I#4 2017年5月11日20:10:28

%S 1,6,8,13,15,18,20,25,27,32,34,37,39,44,46,49,51,56,58,63,65,68,70,75，

%电话77,82,84,87,89,94,96,99101106113115118120125127130132，

%电话137139144146149151156158163165168170175177180182

%A285677中0的N个位置。

%C按A285677中0，1，2的位置对正整数进行3路分区：

%C A285678：0的位置；斜率t=（4+sqrt（5））/2；

%C A182761：位置1；坡度u=（7-sqrt（5））/2；

%C A285679：位置2；斜率v=（1+3*sqrt（5））/2；

%C，其中1/t+1/u+1/v=1。猜想：当n>=2时，a（n）-a（n-1）在{2,3,4,5}中。

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

%t s=嵌套[扁平[#/.{0->{0，1}，1->{0}]&，{0}，13]；（*A003849*）

%t w=StringJoin[Map[ToString，s]]

%t w1=字符串替换[w，{“0010”->“2”}]

%t st=ToCharacterCode[w1]-48；（*A285677*）

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

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

%t压扁[位置[st，2]；（*A285679*）

%Y参考A003849、A284620、A285678、A182761和A285679。

%K nonn，简单

%O 1,2号机组

%A_Clark Kimberling_，2017年5月11日