A184416 Upper s(n)-Wythoff sequence, where s(n)=floor[(n+2)/3]. Complement of A184415.

2, 4, 6, 9, 10, 13, 15, 17, 19, 22, 24, 25, 28, 31, 32, 35, 36, 39, 41, 44, 45, 48, 50, 51, 55, 56, 58, 62, 63, 64, 68, 70, 71, 73, 77, 78, 80, 82, 85, 88, 89, 90, 94, 96, 98, 100, 102, 103, 108, 109, 110, 113, 115, 117, 120, 123, 124, 126, 127, 131, 133, 135, 137, 140, 141, 143, 145, 148, 151, 153, 154, 156, 159, 161, 163, 165, 168, 170, 173, 174, 176, 178, 180, 183, 186, 187, 189, 192, 194, 196, 198, 200, 202, 204, 207, 209, 212, 214, 215, 218

Offset

1,1

Links

Table of n, a(n) for n=1..100.

Example

See A184415.

Mathematica

mex:=First[Complement[Range[1, Max[#1]+1], #1]]&;
s[n_]:=Floor[(n+2)/3]; a[1]=1; b[n_]:=b[n]=s[n]+a[n];
a[n_]:=a[n]=mex[Flatten[Table[{a[i], b[i]}, {i, 1, n-1}]]];
Table[s[n], {n, 20}]
Table[a[n], {n, 100}]
Table[b[n], {n, 100}]

Crossrefs

Cf. A184117, A184415.

Sequence in context: A288623 A138972 A050110 * A187225 A003661 A065387

Adjacent sequences: A184413 A184414 A184415 * A184417 A184418 A184419

Keyword

nonn

Author

Clark Kimberling, Jan 13 2011

Status

approved