%I#14 2018年10月8日02:39:06
%S 1,5,9,13,14,18,22,26,27,31,35,39,40,41,45,49,53,54,58,62,66,67,71,75,
%电话:79,80,81,85,89,93,94,98102106111115119120121126130,
%U 134135139143147148152156160161162166170174175电话
%N a(1)=1;对于n>1,如果n已经在序列中,a(n)=a(n-1)+1,否则a(n。
%H Reinhard Zumkeller,n的表,n=1..10000的a(n)</a>
%H B.Cloitre、N.J.A.Sloane和M.J.Vandermast,<A href=“http://www.cs.uwaterloo.ca/journals/JIS/VOL6/Cloitre/cloitre2.html“>Aronson序列的数值模拟,J.Integer Seqs.,第6卷(2003年),#03.2.2。
%H B.Cloitre、N.J.A.Sloane和M.J.Vandermast,<A href=“http://arXiv.org/abs/math.NT/0305308“>Aronson序列的数值模拟</a>(math.NT/0305308)
%ta[1]=1;a[n_]:=a[n]=如果[MemberQ[Array[a,n-1],n],a[n-1]+1,a[n-1]+4];阵列[a,60](*Jean-François Alcover_,2018年10月8日*)
%o(哈斯克尔)
%o a080579 n=a080579_列表!!(n-1)
%o a080579_list=1:f 2[1]其中
%o f x zs@(z:_)=y:f(x+1)(y:zs)其中
%o y=如果x`elem`zs,则z+1,否则z+4
%o---Reinhard Zumkeller,2014年9月26日
%Y参见A080455-A080458、A080036、A080037。
%K nonn公司
%O 1,2号机组
%A _N.J.A.Sloane,2003年3月23日