%I#4 2017年6月4日18:18:34

%S 3,4,5,9,12,13,14,18,19,20,24,27,28,29,33,36,37,38,42,43,44,48,51,52，

%电话：53,57,58,59,63,66,67,68,72,75,76,77,81,82,83,87,90,91,92,96,99100，

%电话：101105106107111114115116120121122126129130131

%A287790中1的N个位置；补充A287791。

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

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

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

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

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

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

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

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

%Y参见A287790、A287791。

%K nonn，简单

%O 1,1号机组

%A_Clark Kimberling_，2017年6月3日