%I#22 2018年2月8日17:16:01
%S 0,10,20,2,12,21,11,13,3,23,30,40,4,14,24,22,25,26,6,16,36,31,32,27,
%电话:7,17,37,33,34,35,5,15,45,41,42,28,8,18,38,39,9,19,29,52,50,60,46,43,
%U 44,47,57,51,53,63,56,54,55,58,48,49,59,65,61
%N a(N)是序列中尚未出现的最小正数,如果N是奇数,则包含a(N-1)中的最小数字;如果N是偶数,则包括a(N-l)中的最大数字;a(1)=0。
%C 1位数字按以下顺序出现:0,2,1,3,4,6,7,5,8,9。
%在初始项之后,序列围绕y=x线振荡。
%C初始项的第一个差值以30和-36为界,然后以20和-20为界。在前121个项之后,序列大部分时间都以10和-10为界,最终的跳跃似乎仍以36和-36为界。
%H Robert G.Wilson v,n的表,n=1..5000的a(n)</a>
%e a(2)=10,因为它是包含a(1)=0中最大数字的序列中尚未包含的最小数字;a(3)=20,因为它是a(2)=10中包含最小数字的序列中尚未出现的最小数字;a(4)=2,因为它是a(3)=20中包含最大数字的序列中尚未包含的最小数字。
%t a[n_]:=a[n]=块[{k=1,s=Union[IntegerDigits[a[n-1]][[If[OddQ@n,1,-1]],t=Array[a,n-1]},While[MemberQ[t,k]||!成员Q[Integer Digits@k,s],k++];k] ;a[1]=0;数组[a,72](*_Robert G.Wilson v_,2017年12月30日*)
%Y参考A297352。
%K nonn,基础
%O 1,2号机组
%A _Enrique Navarrete,2017年12月28日
%E定义由N.J.A.Sloane澄清,2018年2月8日
|