A184432 Upper s-Wythoff sequence, where s=A081276 (eighth cubes). Complement of A184431.

2, 6, 12, 20, 34, 50, 73, 101, 136, 179, 230, 289, 359, 438, 530, 633, 750, 879, 1023, 1181, 1356, 1546, 1755, 1981, 2226, 2490, 2775, 3080, 3408, 3758, 4132, 4529, 4951, 5398, 5872, 6372, 6901, 7457, 8044, 8660, 9307, 9985, 10696, 11439, 12218, 13029, 13877, 14760, 15680, 16637, 17633, 18667, 19742

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..53.

Mathematica

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

Crossrefs

Cf. A184117, A184431.

Sequence in context: A194110 A291876 A277365 * A003274 A259470 A121315

Adjacent sequences: A184429 A184430 A184431 * A184433 A184434 A184435

Keyword

nonn

Author

Clark Kimberling, Jan 14 2011

Status

approved