%I#14 2019年5月9日17:39:19
%S 0,1,3,2,5,9,4,10,6,11,8,15,7,16,14,22,12,23,17,17,13,25,18,31,19,33,
%电话:20,35,24,40,21,38,29,47,26,45,28,48,30,51,36,58,32,55,39,63,34,59,37,
%U 64、41、67、42、70、43、72、44、74、50、81、46、78111、49、83、52、87
%由算法(注释中)生成的N序列(a(N)),a(1)=0,d(1)=0。
%C算法:对于k>=1,设A(k)={A(1),…,A(k)}和D(k)={D(1)…,D(k){。从k=1和非负整数a(1)和d(1)开始。设h为最小整数>-a(k),使得h不在D(k)中,a(k)+h不在a(k)内。设a(k+1)=a(k)+h和d(k+1。
%C猜想:如果a(1)是一个非负整数,d(1)也是一个整数,那么(a(n))是非负整数的置换(如果a(l)=0)或正整数的置换。此外,如果d(1)=0,则(d(n))是整数的置换;如果d(l)>0,则是非零整数的置换。
%C相关序列指南:
%C a(1)d(1)(a(n))(d(n)
%C 0 A257883 A175499,初始条款除外
%C 0 1 A257884 A175499
%丙2 A257885 A257902
%丙03 A257903 A257904
%C 10 A175498 A175499,第一学期除外
%C 1 1 A257905 A175499
%丙20 A257908 A257909
%C 2 1 A257910 A257909,初始条款除外
%C2 2 A257911 A257912型
%H Clark Kimberling,n的表,n=1..1000的a(n)</a>
%对于k>=1,F a(k+1)-a(k)=d(k+1。
%F此外,当n>=1时,A257883(n)=-1+A175498(n)。
%e a(1)=0,d(1)=0;
%e a(2)=1,d(2)=1;
%e a(3)=3,d(3)=2;
%e a(4)=2,d(4)=-1。
%ta[1]=0;d[1]=0;k=1;z=10000;zz=120;
%tA[k_]:=表[A[i],{i,1,k}];diff[k_]:=表[d[i],{i,1,k}];
%t c[k_]:=补码[Range[-z,z],diff[k]];
%t t[k_]:=-a[k]+补码[范围[z],a[k]]
%t表[{h=Min[交集[c[k],t[k]]],a[k+1]=a[k]+h,
%td[k+1]=h,k=k+1},{i,1,zz}];
%t u=表格[a[k],{k,1,zz}](*A257883,=-1+A175498*)
%t表[d[k],{k,1,zz}](*A175499,除了这里的第一项是0*)
%Y参考A081145、A175498、A257705。
%K nonn,简单
%氧1,3
%A_Clark Kimberling_,2015年5月13日
|