cp's OEIS Frontend

A184416 Upper s(n)-Wythoff sequence, where s(n)=floor[(n+2)/3]. Complement of A184415.

%I A184416 #4 Mar 30 2012 18:57:13
%S A184416 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 A184416 55,56,58,62,63,64,68,70,71,73,77,78,80,82,85,88,89,90,94,96,98,100,
%U A184416 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 A184416 Upper s(n)-Wythoff sequence, where s(n)=floor[(n+2)/3].  Complement of A184415.
%e A184416 See A184415.
%t A184416 mex:=First[Complement[Range[1,Max[#1]+1],#1]]&;
%t A184416 s[n_]:=Floor[(n+2)/3];a[1]=1;b[n_]:=b[n]=s[n]+a[n];
%t A184416 a[n_]:=a[n]=mex[Flatten[Table[{a[i],b[i]},{i,1,n-1}]]];
%t A184416 Table[s[n],{n,20}]
%t A184416 Table[a[n],{n,100}]
%t A184416 Table[b[n],{n,100}]
%Y A184416 Cf. A184117, A184415.
%K A184416 nonn
%O A184416 1,1
%A A184416 _Clark Kimberling_, Jan 13 2011