%I#5 2017年4月30日22:37:59
%S 0,1,0,1,0,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,1,0,1,1,1,1,0,
%T 1,1,1,0,1,0,1,0,1,0,1,1,0,0,1,1,1,1,0,10,1,1,1,0,0,1,0,0,
%U 1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,0,1,0,1
%A285565的N{00->0,11->1}变换。
%C作为一个词,A285565=0110011011011001101111011001101101101100110011001100110110……,因此由替换00->0和11->1得到的A285565的转换是010101010101010101 10101010101101。。。
%H Clark Kimberling,n的表,n的a(n)=1..10000</a>
%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参见A285515、A285565、A2850590、A285591和A285592。
%K nonn,简单
%O 1号机组
%A _百灵鸟金伯利,2017年4月30日
|