A184428 - OEIS

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

(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..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}]