Voozh

A184422

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

3, 7, 11, 15, 19, 23, 27, 30, 35, 39, 42, 47, 51, 54, 59, 62, 66, 71, 74, 78, 82, 86, 91, 94, 98, 102, 106, 110, 113, 118, 122, 126, 130, 134, 137, 142, 145, 149, 154, 157, 162, 165, 169, 173, 177, 181, 186, 189, 193, 197, 201, 205, 208, 213, 216, 221, 225, 228, 233, 237, 240, 245, 248, 252, 257, 260, 264, 268, 272, 276, 280, 284, 288, 292, 296, 299, 304, 308, 311, 316, 320, 323, 328, 331, 336, 340, 343, 347, 352, 355, 359, 363, 367, 371, 375, 379, 382, 387, 391, 394

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

COMMENTS

See A184421.

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