%I#20 2022年9月8日08:45:55
%第2、6、9、12、16、19、23、26、30、33、36、40、43、47、50、53、57、60、64、67、70、74、77、81页,
%电话84,88,91,94,98101105111115118122125129132135139142,
%电话14614915215615916316617017317618018719019319720020420721021422122422823123432342245248251256265269269272792862892922962993033093132032333337340
%N上部s(N)-Wythoff序列,其中s(N”)=2n-1;A136119的补体。
%C上下s(n)-Wythoff序列的定义见A184117。
%C(a(n))是一个非齐次Beatty序列,是非齐次Beatty序列(A136119(n),=(floor(sqrt(2)*n+1-sqrt(二)/2))的补码。看弗伦克尔的论文_Michel Dekking_,2017年1月31日
%H Vincenzo Librandi,n的表,n=1..2000的a(n)</a>
%H Aviezri S.Fraenkel,<a href=“http://dx.doi.org/10.1090/S0002-9947-1994-1138949-9“>迭代底函数,代数数,离散混沌,Beatty子序列,半群,美国数学学会学报341.2(1994):第640页。
%F a(n)=楼层(2+平方米(2))*n-平方米(3)/2)_Michel Dekking,2017年1月31日
%t k=2;r=1;
%t mex:=第一个[补码[范围[1,最大值[#1]+1],#1]]&;
%t s[n]:=k*n-r;a[1]=1;b[n]:=b[n]=s[n]+a[n];
%ta[n_]:=a[n]=mex[扁平[表[{a[i],b[i]},{i,1,n-1}]];
%t表格[s[n],{n,30}]
%t表[a[n],{n,100}]
%t表[b[n],{n,100}]
%t表[(楼层[(2+Sqrt[2])n-Sqrt[2]/2]),{n,100}](*_Wincenzo Librandi_,2017年1月31日*)
%o(岩浆)[地面((2+平方(2))*n-Sqrt(2)/2):n in[1..80]];//_Vincenzo Librandi_,2017年1月31日
%Y参考A136119、A184117。
%K nonn公司
%O 1,1
%A_Clark Kimberling_,2011年1月9日
|