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

Author

Clark Kimberling, Jan 13 2011

Keywords

• nonn

Comments

See A184419.

Crossrefs

Cf. A184117, A184419.

Programs

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}]