%I#8 2020年4月7日22:02:53
%S 0、1、1、0、0、1、1、0、1、1、1、1、1、1、1、1、0、1、1、1、1、1、1、0、0,
%温度0,0,1,1,1,1,1,0,1,1,0,1,1,1,1,1,1,1,1,11,1,1,0,11,1,1,1,1,1,
%U 1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,11,1,0,1,1,1
%N 2-映射的限制字00->1000,10->011,从00开始。
%C映射的迭代,从00开始:
%C 00码
%C 1000元
%丙0111000
%川0110111000
%川01011110111000
%川0011111011110111000
%川10001111011111111111000
%C 01110001110111111011111011110111000
%川011011100011011111110111111011111011110111001
%2限制词是n==2 mod 5第n次迭代的极限。
%C第n次迭代中的字母数(0和1)由A288243(n)给出,对于n>=0。
%H克拉克·金伯利(Clark Kimberling),n的表,a(n)表示n=1..10000</a>
%e n==2 mod 5:0111000和01110001111111011111011111111000的前两个第n次迭代。(前10个这样的迭代的长度是7、35、106、242、473、849、1442、2346、3685、5642。)
%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[52]]-48(*A288858*)
%t压扁[位置[st,0]](*A288859*)
%t压扁[位置[st,1]](*A288860*)
%t表[StringLength[w[n]],{n,0,30}](*A288243*)
%Y参见A288226(0-限制字)、A288855(1-限制字),A288861(3-限制字)和A288864(4-限制字)。A288859、A288860、A288243。
%K nonn,简单
%O 1号机组
%A _Clark Kimberling_,2017年6月23日
|