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
Keywords
Examples
See A184415.
Programs
-
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}]