A184425 Lower s-Wythoff sequence, where s=A000217 (triangular numbers). Complement of A184426.

1, 3, 4, 5, 7, 8, 9, 11, 12, 13, 14, 16, 17, 18, 19, 20, 21, 23, 24, 25, 26, 27, 28, 30, 31, 32, 33, 34, 35, 36, 38, 39, 40, 41, 42, 43, 44, 45, 46, 48, 49, 50, 51, 52, 53, 54, 55, 56, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120

Offset

1,2

Comments

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

Links

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

Mathematica

mex:=First[Complement[Range[1, Max[#1]+1], #1]]&;
s[n_]:=n (n+1)/2; 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, 120}]
Table[b[n], {n, 100}]

Crossrefs

Cf. A184117, A184426.

Sequence in context: A024355 A194413 A183574 * A276212 A137905 A285958

Adjacent sequences: A184422 A184423 A184424 * A184426 A184427 A184428

Keyword

nonn

Author

Clark Kimberling, Jan 14 2011

Status

approved