login
Upper s(n)-Wythoff sequence, where s(n)=floor[(n+1)/2].
3

%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