A184420 Upper s-Wythoff sequence, where s=upper Wythoff sequence. Complement of A184419.

2, 6, 8, 11, 15, 18, 21, 24, 27, 30, 33, 36, 40, 42, 46, 48, 52, 55, 58, 61, 64, 67, 71, 73, 77, 80, 82, 86, 89, 92, 95, 98, 102, 105, 107, 111, 113, 117, 120, 123, 126, 129, 132, 136, 138, 142, 145, 147, 151, 154, 157, 160, 163, 166, 169, 173, 176, 178, 182, 185, 188, 191, 194, 197, 201, 203, 207, 210, 212, 216, 218, 222, 226, 228, 231, 234, 238, 241, 243, 247, 250, 253, 256, 259, 262, 266, 268, 272, 275, 278, 281, 283, 287, 291, 293, 296, 299, 302, 306, 309

Offset

1,1

Comments

See A184419.

Links

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

Mathematica

mex:=First[Complement[Range[1, Max[#1]+1], #1]]&;
r=(1+5^(1/2))/2; s[n_]:=Floor[r*n]; 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, 40}]
Table[a[n], {n, 100}]
Table[b[n], {n, 100}]

Crossrefs

Cf. A184117, A184419.

Sequence in context: A298170 A067246 A370866 * A136496 A183173 A178931

Adjacent sequences: A184417 A184418 A184419 * A184421 A184422 A184423

Keyword

nonn

Author

Clark Kimberling, Jan 13 2011

Status

approved