A045682 -id:A045682 - cp's OEIS frontend

A045681 Extension of Beatty sequence; complement of A045682.

0, 1, 2, 3, 4, 6, 7, 8, 9, 11, 12, 13, 14, 16, 17, 18, 19, 21, 22, 23, 24, 25, 26, 28, 29, 30, 31, 33, 34, 35, 36, 38, 39, 40, 41, 43, 44, 45, 46, 47, 48, 50, 51, 52, 53, 55, 56, 57, 58, 60, 61, 62, 63, 65, 66, 67, 68, 69, 70, 72, 73

Offset: 0

Aviezri S. Fraenkel

nonn

(s,t)-sequences; the case s=2, t=3.

Clark Kimberling, Complementary Equations, Journal of Integer Sequences, Vol. 10 (2007), Article 07.1.4.

A. S. Fraenkel, Heap games, numeration systems and sequences, Annals of Combinatorics, 2 (1998), 197-210.
Index entries for sequences related to Beatty sequences

Cf. A045671, A045672.

s=2; t=3;
mex:=First[Complement[Range[1,Max[#1]+1],#1]]&;
a[0]=0; b[n_]:=b[n]=s*a[n]+t*n;
a[n_]:=a[n]=mex[Flatten[Table[{a[i],b[i]},{i,0,n-1}]]];
Table[a[n],{n,200}] (* A045681 *)
Table[b[n],{n,200}] (* A045682 *)
(* From Clark Kimberling, Apr 02 2011 *)

a(n)=mex {a(i), b(i):0<=iA045682, mex S=least integer >= 0 not in the sequence S.

A045749 Extension of Beatty sequence; complement of A045750.

Original entry on oeis.org

0, 1, 2, 3, 5, 6, 7, 9, 10, 11, 13, 14, 15, 16, 17, 18, 20, 21, 22, 24, 25, 26, 28, 29, 30, 31, 32, 33, 35, 36, 37, 39, 40, 41, 43, 44, 45, 46, 47, 48, 50, 51, 52, 54, 55, 56, 58, 59, 60, 62, 63, 64, 66, 67, 68

Offset: 0

Aviezri S. Fraenkel

nonn

(s,t)-sequences; the case s=3, t=1.

Complement of A045750. It appears likely that A045749(n)=A187570(n) for all n>=1; the equation has been verified for n up to 500. - Clark Kimberling, Apr 02 2011

A. S. Fraenkel, Heap games, numeration systems and sequences, arXiv:math/9809074 [math.CO], 1998; Annals of Combinatorics, 2 (1998), 197-210.
Clark Kimberling, Complementary equations, J. Int. Seq. 19 (2007), #07.1.4.
Index entries for sequences related to Beatty sequences

Cf. A045681, A045682, A045749, A187570.

s=3; t=1;
mex:=First[Complement[Range[1,Max[#1]+1],#1]]&;
a[0]=0; b[n_]:=b[n]=s*a[n]+t*n;
a[n_]:=a[n]=mex[Flatten[Table[{a[i],b[i]},{i,0,n-1}]]];
Table[a[n],{n,200}] (* A045749 *)
Table[b[n],{n,200}] (* A045750 *)
(* Clark Kimberling, Apr 02 2011 *)

a(n) = mex {a(i), b(i):0 <= iA045750, mex S=least integer >= 0 not in the sequence S.

cp's OEIS Frontend

A045681 Extension of Beatty sequence; complement of A045682.

Views

Author

Keywords

Comments

References

Links

Crossrefs

Programs

Mathematica

Formula