cp's OEIS Frontend

A184420 Upper s-Wythoff sequence, where s=upper Wythoff sequence. Complement of A184419.

%I A184420 #4 Mar 30 2012 18:57:13
%S A184420 2,6,8,11,15,18,21,24,27,30,33,36,40,42,46,48,52,55,58,61,64,67,71,73,
%T A184420 77,80,82,86,89,92,95,98,102,105,107,111,113,117,120,123,126,129,132,
%U A184420 136,138,142,145,147,151,154,157,160,163,166,169,173,176,178,182,185,188,191,194,197,201,203,207,210,212,216,218,222,226,228,231,234,238,241,243,247,250,253,256,259,262,266,268,272,275,278,281,283,287,291,293,296,299,302,306,309
%N A184420 Upper s-Wythoff sequence, where s=upper Wythoff sequence.  Complement of A184419.
%C A184420 See A184419.
%t A184420 mex:=First[Complement[Range[1,Max[#1]+1],#1]]&;
%t A184420 r=(1+5^(1/2))/2;s[n_]:=Floor[r*n];a[1]=1;b[n_]:=b[n]=s[n]+a[n];
%t A184420 a[n_]:=a[n]=mex[Flatten[Table[{a[i],b[i]},{i,1,n-1}]]];
%t A184420 Table[s[n],{n,40}]
%t A184420 Table[a[n],{n,100}]
%t A184420 Table[b[n],{n,100}]
%Y A184420 Cf. A184117, A184419.
%K A184420 nonn
%O A184420 1,1
%A A184420 _Clark Kimberling_, Jan 13 2011