login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A184422 Upper s-Wyhoff sequence, where s=upper Wythoff sequence. Complement of A184421. 2
3, 7, 11, 15, 19, 23, 27, 30, 35, 39, 42, 47, 51, 54, 59, 62, 66, 71, 74, 78, 82, 86, 91, 94, 98, 102, 106, 110, 113, 118, 122, 126, 130, 134, 137, 142, 145, 149, 154, 157, 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 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

See A184421.

LINKS

Table of n, a(n) for n=1..100.

MATHEMATICA

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

r=(1+5^(1/2))/2; s[n_]:=Floor[r*n+n]; a[1]=1; b[n_]:=b[n]=s[n]+a[n];

a[n_]:=a[n]=mex[Flatten[Table[{a[i], b[i]}, {i, 1, n-1}]]];

Table[s[n], {n, 40}]

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

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

CROSSREFS

Cf. A184117, A184421.

Sequence in context: A124981 A059554 A246171 * A189534 A179874 A190349

Adjacent sequences:  A184419 A184420 A184421 * A184423 A184424 A184425

KEYWORD

nonn

AUTHOR

Clark Kimberling, Jan 13 2011

STATUS

approved

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

Content is available under The OEIS End-User License Agreement .

Last modified October 25 19:50 EDT 2014. Contains 248557 sequences.