|
%I #18 Feb 12 2014 18:14:38
%S 0,5,10,15,20,27,32,37,42,49,54,59,64,71,76,81,86,93,98,103,108,113,
%T 118,125,130,135,140,147,152,157,162,169,174,179,184,191,196,201,206,
%U 211,216,223,228,233,238,245,250,255,260,267,272,277,282,289,294,299
%N Extension of Beatty sequence; complement of A045681.
%C (s,t)-sequences; the case s=2, t=3.
%H A. S. Fraenkel, <a href="http://arXiv.org/abs/math.CO/9809074">Heap games, numeration systems and sequences</a>, Annals of Combinatorics, 2 (1998), 197-210.
%H <a href="/index/Be#Beatty">Index entries for sequences related to Beatty sequences</a>
%F a(n) = 2*A045681(n)+3*n.
%t s=2; t=3;
%t mex:=First[Complement[Range[1,Max[#1]+1],#1]]&;
%t a[0]=0; b[n_]:=b[n]=s*a[n]+t*n;
%t a[n_]:=a[n]=mex[Flatten[Table[{a[i],b[i]},{i,0,n-1}]]];
%t Table[a[n],{n,200}] (* A045681 *)
%t Table[b[n],{n,200}] (* A045682 *)
%t (* From _Clark Kimberling_, Apr 02 2011 *)
%Y Cf. A045671, A045672.
%K nonn
%O 0,2
%A _Aviezri S. Fraenkel_
|
