%I#5 2017年5月17日11:33:55
%S 1,1,1,1,0,0,1,0,1,1,0,1,1,0,1,1,0,1,0,1,1,1,1,1,1,0,1,0,11,0,1,
%温度1,0,0,1,0,1,1,0,1,1,1,0,1,1,0,1,0,1,1,1,1,1,0,2,0,1,0,1,0,1,1,0,0,
%U 0,1,1,0,1,1,1,1,0,0,1,0,0,1,1,0,1,1
%N{0->110,1->010}-佩尔词的转换,A171588。
%C A171588=0010010001001001001001000100100100100…,将每个0替换为110,将每个1替换为010,得到1101100101101101101100101…,其中0的位置由A286802给出,1的位置由A2 86803给出。
%H Clark Kimberling,n的表,n=1..10000的a(n)</a>
%t s=嵌套[扁平[#/.{0->{0,0,1},1->{0}}]&,{0},16];(*佩尔字,A171588*)
%t w=StringJoin[Map[ToString,s]];
%t w1=字符串替换[w,{“0”->“110”,“1”->“010”}];
%t st=ToCharacterCode[w1]-48;(*A286801*)
%t压扁[位置[st,0]];(*A286802*)
%t压扁[位置[st,1]];(*A286803*)
%Y参考A171588、A286802、A286803。
%K nonn,简单
%O 1号机组
%A _百灵金伯利,2017年5月16日
|