|
| |
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
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 * A097022 A137236 A124198
Adjacent sequences: A184423 A184424 A184425 * A184427 A184428 A184429
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Clark Kimberling, Jan 14 2011
|
|
|
STATUS
|
approved
|
| |
|
|
