%I#4 2017年5月17日11:34:03
%S 3,6,7,9,12,15,16,18,21,24,27,28,30,33,36,37,39,42,45,48,49,51,54,57,
%第58、60、63、66、67、69、72、75、78、79、81、84、87、88、90、93、96、91、102、105页,
%电话:108109111114117118120123126129130132135138139141
%A286801中N位为0;补充A286803。
%对于n>=2和a(n)/n->(12+3*sqrt(2))/7,C(n)-a(n-1)在{1,2,3}中。
%H Clark Kimberling,n的表,n=1..10000的a(n)</a>
%e作为一个单词,A286801=1101100101101101011011…,其中0位于位置3,6,7,9,12,。。。
%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和A286803。
%K nonn,简单
%O 1,1号机组
%A _百灵金伯利,2017年5月16日
|