|
|
A184420
|
|
Upper s-Wythoff sequence, where s=upper Wythoff sequence. Complement of A184419.
|
|
2
|
|
|
2, 6, 8, 11, 15, 18, 21, 24, 27, 30, 33, 36, 40, 42, 46, 48, 52, 55, 58, 61, 64, 67, 71, 73, 77, 80, 82, 86, 89, 92, 95, 98, 102, 105, 107, 111, 113, 117, 120, 123, 126, 129, 132, 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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
mex:=First[Complement[Range[1, Max[#1]+1], #1]]&;
r=(1+5^(1/2))/2; s[n_]:=Floor[r*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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|