%I#4 2015年6月5日03:42:49
%S 2,3,5,4,7,13,6,11,8,15,9,17,12,10,19,37,14,27,16,31,18,35,20,39,21,
%电话41,22,43,23,45,24,47,25,49,32,28,55,26,51,42,30,59,29,57,33,65,34,67,
%U 40、44、36、71、38、75、50、99、46、91、48、95、53105、54107、52103
%N序列(a(N))由规则3(在注释中)生成,a(1)=2,d(1)=0。
%C规则3如下。对于k>=1,设A(k)={A(1),…,A(k)}和D(k)={D(1)…,D(k){。从k=1和非负整数a(1)和d(1)开始。
%C步骤1:如果存在整数h,使得1-a(k)<h<0,并且h不在D(k)中,a(k)+h不在a(k)中,则设D(k+1)是这样的h的最小值,设a(k+1)=a(k)+h,用k+1替换k,并重复步骤1;否则执行步骤2。
%C步骤2:设h是D(k)中不包含的最小正整数,使得a(k)-h不包含在a(k)内。设a(k+1)=a(k)+h和d(k+1”)=h。用k+1替换k,然后执行步骤1。
%C有关相关序列和猜想的指南,请参见A257905。
%H Clark Kimberling,n的表,n=1..1000的a(n)</a>
%当n>=1时,F a(n)=A131393(n)+1。此外,当n>=2时,a(n)-a(n-1)=A131394(n)。
%e a(1)=2,d(1)=0;
%e a(2)=3,d(2)=1;
%e a(3)=5,d(3)=2;
%e a(4)=4,d(4)=-1。
%t{a,f}={{2},{0}};Do[tmp={#,#-最后[a]}和[Min[Complement[#,Intersection[a,#]]和[Last[a]+补码[#,Intersection[f,#]]&[Range[2-最后[a],-1]]]];
%t如果[!IntegerQ[tmp[[1]]],tmp={Last[a]+#,#}&[NestWhile[#+1&,1,!(!MemberQ[f,#]&&!MemberQ[a,Last[a]-#])&]]];附加到[a,tmp[[1]]];附加到[f,tmp[[2]]],{120}];{a,f}(*_彼得·莫塞斯,2015年5月14日*)
%Y参见A257905、A257986、A131394。
%K nonn,简单
%O 1,1号机组
%A_Clark Kimberling_,2015年6月2日
|