login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A184422 Upper s-Wythoff sequence, where s=upper Wythoff sequence. Complement of A184421. 2

%I #6 Sep 23 2021 16:29:19

%S 3,7,11,15,19,23,27,30,35,39,42,47,51,54,59,62,66,71,74,78,82,86,91,

%T 94,98,102,106,110,113,118,122,126,130,134,137,142,145,149,154,157,

%U 162,165,169,173,177,181,186,189,193,197,201,205,208,213,216,221,225,228,233,237,240,245,248,252,257,260,264,268,272,276,280,284,288,292,296,299,304,308,311,316,320,323,328,331,336,340,343,347,352,355,359,363,367,371,375,379,382,387,391,394

%N Upper s-Wythoff sequence, where s=upper Wythoff sequence. Complement of A184421.

%C See A184421.

%t mex:=First[Complement[Range[1,Max[#1]+1],#1]]&;

%t r=(1+5^(1/2))/2;s[n_]:=Floor[r*n+n];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,40}]

%t Table[a[n],{n,100}]

%t Table[b[n],{n,100}]

%Y Cf. A184117, A184421.

%K nonn

%O 1,1

%A _Clark Kimberling_, Jan 13 2011

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 01:36 EDT 2024. Contains 371264 sequences. (Running on oeis4.)