%I#4 2017年4月30日22:38:12
%S 2,4,6,8,10,12,13,15,17,19,23,25,27,29,31,33,35,36,38,40,42,44,46,
%电话:48,50,52,54,55,57,59,61,63,65,67,69,71,73,74,76,78,80,82,84,86,88,90,
%U 92,94,96,97,99101103105107109111113115116118120单位
%A285589中N个位置为1;补充A285590。
%C猜想:a(n)/n->(1+sqrt(4/5)。
%H Clark Kimberling,n的表,n=1..10000的a(n)</a>
%e作为一个单词,A285568=01010101010110…,其中1位于位置2、4、6、8,。。。
%t s=嵌套[扁平[#/.{0->{1,1},1->{0,1,0}}]&,{0},8](*A285565*)
%t w=StringJoin[Map[ToString,s]]
%t w1=字符串替换[w,{“00”->“0”,“11”->“1”}]
%t ss=字符代码[w1]-48(*A285589*)
%t压扁[位置[ss,0]](*A285590*)
%t压扁[位置[ss,1]](*A285591*)
%Y参见A285565、A285589、A285590和A285592。
%K nonn,简单
%O 1,1号机组
%A _百灵鸟金伯利,2017年4月30日
|