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

2, 6, 10, 15, 22, 29, 37, 47, 57, 68, 80, 94, 108, 123, 139, 156, 174, 194, 214, 235, 257, 280, 304, 330, 356, 383, 411, 440, 470, 501, 534, 567, 601, 636, 672, 709, 747, 786, 826, 868, 910, 953, 997, 1042, 1088, 1135, 1183, 1232, 1283, 1334, 1386, 1439, 1493, 1548, 1604, 1661, 1719, 1778, 1839, 1900, 1962, 2025, 2089, 2154, 2220, 2287, 2355, 2424, 2494, 2566, 2638, 2711, 2785, 2860, 2936, 3013, 3091, 3170, 3250, 3331, 3413, 3496, 3581, 3666

Offset

1,1

Comments

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

Links

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

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

Sequence in context: A186783 A133931 A050895 * A293408 A357387 A369237

Adjacent sequences: A184423 A184424 A184425 * A184427 A184428 A184429

Keyword

nonn

Author

Clark Kimberling, Jan 14 2011

Status

approved