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

1, 3, 4, 5, 7, 8, 9, 10, 11, 13, 14, 15, 16, 17, 18, 19, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 102, 103, 104, 105, 106, 107, 108

Offset

1,2

Comments

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

Links

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

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

Sequence in context: A075748 A039177 A058986 * A078358 A175968 A152012

Adjacent sequences: A184428 A184429 A184430 * A184432 A184433 A184434

Keyword

nonn

Author

Clark Kimberling, Jan 14 2011

Status

approved