A184421 Lower s-Wythoff sequence, where s=upper Wythoff sequence. Complement of A184422.

1, 2, 4, 5, 6, 8, 9, 10, 12, 13, 14, 16, 17, 18, 20, 21, 22, 24, 25, 26, 28, 29, 31, 32, 33, 34, 36, 37, 38, 40, 41, 43, 44, 45, 46, 48, 49, 50, 52, 53, 55, 56, 57, 58, 60, 61, 63, 64, 65, 67, 68, 69, 70, 72, 73, 75, 76, 77, 79, 80, 81, 83, 84, 85, 87, 88, 89, 90, 92, 93, 95, 96, 97, 99, 100, 101, 103, 104, 105, 107, 108, 109, 111, 112, 114, 115, 116, 117, 119, 120, 121, 123, 124, 125, 127, 128, 129, 131, 132, 133

Offset

1,2

Comments

See A184117 for the definition of lower and upper Wythoff sequences.

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, A184422.

Sequence in context: A317551 A004773 A104401 * A329978 A329839 A039070

Adjacent sequences: A184418 A184419 A184420 * A184422 A184423 A184424

Keyword

nonn

Author

Clark Kimberling, Jan 13 2011

Status

approved