%I #4 Mar 30 2012 18:57:13
%S 2,4,7,8,12,13,15,18,21,22,25,26,30,31,35,36,38,41,43,44,48,50,52,54,
%T 58,59,61,63,66,68,71,72,74,77,80,82,84,86,89,90,94,96,98,100,102,104,
%U 107,109,112,113,117,118,120,122,125,127,130,132,135,136,139,141,143,146,148,149,153,155,158,159,162,164,166,168,171,172,176,177,180,182,185,186,189,192,194,195,198,200,202,205,207,209,212,214,217,218,222,223,225,228
%N Upper s(n)-Wythoff sequence, where s(n)=floor[(n+1)/2].
%C See A184117 for the definition of lower and upper s(n)-Wythoff sequences.
%t mex:=First[Complement[Range[1,Max[#1]+1],#1]]&;
%t s[n_]:=Floor[(n+1)/2];a[1]=1;b[n_]:=b[n]=s[n]+a[n];
%t a[n_]:=a[n]=mex[Flatten[Table[{a[i],b[i]},{i,1,n-1}]]];
%t Table[s[n],{n,20}]
%t Table[a[n],{n,100}]
%t Table[b[n],{n,100}]
%Y Cf. A184413, A184117.
%K nonn
%O 1,1
%A _Clark Kimberling_, Jan 13 2011