A184428 Upper s-Wythoff sequence of A000290 (the squares). Complement of A184427.

2, 7, 13, 21, 31, 44, 58, 74, 92, 112, 135, 159, 185, 213, 243, 275, 309, 346, 384, 424, 466, 510, 556, 604, 654, 706, 761, 817, 875, 935, 997, 1061, 1127, 1195, 1265, 1337, 1411, 1487, 1566, 1646, 1728, 1812, 1898, 1986, 2076, 2168, 2262, 2358, 2456, 2556, 2658, 2763, 2869, 2977, 3087, 3199, 3313, 3429, 3547, 3667, 3789, 3913, 4039, 4167, 4297, 4429, 4564, 4700, 4838, 4978, 5120

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

Mathematica

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

Crossrefs

Cf. A184117, A184427.

Sequence in context: A346870 A106675 A022946 * A262523 A360135 A010895

Adjacent sequences: A184425 A184426 A184427 * A184429 A184430 A184431

Keyword

nonn

Author

Clark Kimberling, Jan 14 2011

Status

approved