cp's OEIS Frontend

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

%I A184414 #4 Mar 30 2012 18:57:13
%S A184414 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 A184414 58,59,61,63,66,68,71,72,74,77,80,82,84,86,89,90,94,96,98,100,102,104,
%U A184414 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 A184414 Upper s(n)-Wythoff sequence, where s(n)=floor[(n+1)/2].
%C A184414 See A184117 for the definition of lower and upper s(n)-Wythoff sequences.
%t A184414 mex:=First[Complement[Range[1,Max[#1]+1],#1]]&;
%t A184414 s[n_]:=Floor[(n+1)/2];a[1]=1;b[n_]:=b[n]=s[n]+a[n];
%t A184414 a[n_]:=a[n]=mex[Flatten[Table[{a[i],b[i]},{i,1,n-1}]]];
%t A184414 Table[s[n],{n,20}]
%t A184414 Table[a[n],{n,100}]
%t A184414 Table[b[n],{n,100}]
%Y A184414 Cf. A184413, A184117.
%K A184414 nonn
%O A184414 1,1
%A A184414 _Clark Kimberling_, Jan 13 2011