This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 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 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
Recent Additions | More pages | Superseeker | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .

Last modified May 19 12:42 EDT 2013. Contains 225429 sequences.