%I#4 2017年4月30日22:38:06
%S 1,3,5,7,9,11,14,16,18,20,22,24,26,28,30,32,34,37,39,41,43,45,47,49,
%电话51,53,56,58,60,62,64,66,68,70,72,75,77,79,81,83,85,87,89,91,93,95,98,
%电话:100102104106110112114117119121124126128131
%A285589中N个0位置;补充A285591。
%C猜想:a(n)/n->(1+sqrt(5/4)。
%H Clark Kimberling,n的表,n=1..10000的a(n)</a>
%e作为一个单词,A285568=01010101010110…,其中0位于位置1,3,5,7,。。。
%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=ToCharacterCode[w1]-48(*A285589*)
%t压扁[位置[ss,0]](*A285590*)
%t压扁[位置[ss,1]](*A285591*)
%Y参见A285565、A285589、A285591和A285592。
%K nonn,简单
%O 1,2号机组
%A _百灵鸟金伯利,2017年4月30日
|