%I #4 Mar 30 2012 18:57:13
%S 2,4,6,9,10,13,15,17,19,22,24,25,28,31,32,35,36,39,41,44,45,48,50,51,
%T 55,56,58,62,63,64,68,70,71,73,77,78,80,82,85,88,89,90,94,96,98,100,
%U 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
%N Upper s(n)-Wythoff sequence, where s(n)=floor[(n+2)/3]. Complement of A184415.
%e See A184415.
%t mex:=First[Complement[Range[1,Max[#1]+1],#1]]&;
%t s[n_]:=Floor[(n+2)/3];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. A184117, A184415.
%K nonn
%O 1,1
%A _Clark Kimberling_, Jan 13 2011
|