%I#6 2020年4月7日22:17:47
%S 0,1,1,0,1,10,0,0,11,0,1,1,1,1,1,1,1,1,1,1,1,11,1,0,11,1,0,
%T 1,1,1,1,0,1,1,0,0,0-0,0,1,1,1,1,1,1,1,1,1,1,11,1,1,1,
%U形图1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1
%N 3-映射的限制字00->1000,10->011,从00开始。
%C映射的迭代,从00开始:
%C 00
%C 1000元
%丙0111000
%川0110111000
%川01011110111000
%川0011111011110111000
%川10001111011111111111000
%川01110001110111111011111011110111000
%川011011100011011111110111111011111011110111001
%3限制词是n==3 mod 5第n次迭代的极限。
%C第n次迭代中的字母数(0和1)由A288243(n)给出,对于n>=0。
%H克拉克·金伯利(Clark Kimberling),n的表,a(n)表示n=1..10000</a>
%e n==3 mod 5的前两个第n次迭代:
%电子0110111000
%电子011011100011011111110111111011111111110111001
%e(前10个这样的迭代的长度是10、45、127、279、534、947、1594、2573、4018、6126。)
%ts={0,0};w[0]=StringJoin[Map[ToString,s]];
%t w[n_]:=字符串替换[w[n-1],{“00”->“1000”,“10”->“011”}]
%t表[w[n],{n,0,8}]
%t st=角色代码[w[53]]-48(*A288861*)
%t压扁[位置[st,0]](*A288862*)
%t压扁[位置[st,1]](*A288863*)
%t表[StringLength[w[n]],{n,0,30}](*A288243*)
%Y参见A288226(0-限制字)、A288855(1-限制字),A288858(2-限制字)和A288864(4-限制字)。A288862、A288863、A288243。
%K nonn,简单
%O 1号机组
%A_Clark Kimberling_,2017年6月23日
|