|
|
A184428
|
|
Upper s-Wythoff sequence of A000290 (the squares). Complement of A184427.
|
|
4
|
|
|
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
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|