login
A184426
Upper s-Wythoff sequence, where s=A000217 (triangular numbers). Complement of A184425.
2
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.
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
Sequence in context: A186783 A133931 A050895 * A293408 A357387 A369237
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jan 14 2011
STATUS
approved