%我
%S 1,2,4,5,8,10,11,13,14,17,19,20,22,23,25,26,29,31,32,34,35,38,40,41,
%电话:43、44、46、47、50、52、53、55、56、59、61、62、64、65、68、70、71、73、74、76、77、80、82,
%U 83,85,86,89,91,92,94,95,97,98101103104106107110112单位
%A286801中1的N个位置;补充A286802。
%对于n>=2和a(n)/n->6-3*sqrt(2),ca(n)-a(n-1)在{1,2,3}中。
%H Clark Kimberling,n的表,n=1..10000的a(n)</a>
%e作为一个单词,A286801=1101100101101101011011…,其中1位于位置1,2,4,5,8,10,。。。
%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、A286801、A286802。
%K nonn,简单
%O 1,2号机组
%A _百灵金伯利,2017年5月16日
|