A184430 Upper s-Wythoff sequence, where s=A002620 (quarter squares). Complement of A184429.

2, 5, 8, 12, 16, 21, 26, 31, 38, 44, 51, 59, 67, 75, 84, 94, 104, 114, 125, 137, 149, 161, 174, 188, 202, 216, 231, 246, 262, 279, 296, 313, 331, 349, 369, 388, 408, 428, 449, 470, 493, 515, 538, 561, 585, 609, 634, 660, 686, 712, 739, 766, 794, 822, 852, 881, 911, 941, 972, 1003, 1035, 1068, 1101, 1134, 1168, 1202, 1237, 1272, 1308, 1345, 1382, 1419, 1457, 1495, 1534, 1573, 1613, 1653, 1695, 1736

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

Mathematica

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

Sequence in context: A228155 A070977 A134925 * A219657 A213707 A229154

Adjacent sequences: A184427 A184428 A184429 * A184431 A184432 A184433

Keyword

nonn

Author

Clark Kimberling, Jan 14 2011

Status

approved