login
A184525
Upper s-Wythoff sequence, where s=5n-1. Complement of A184524.
1
5, 11, 17, 23, 30, 36, 42, 48, 54, 61, 67, 73, 79, 85, 92, 98, 104, 110, 116, 123, 129, 135, 141, 147, 153, 160, 166, 172, 178, 184, 191, 197, 203, 209, 215, 222, 228, 234, 240, 246, 253, 259, 265, 271, 277, 284, 290, 296, 302, 308, 314, 321, 327, 333, 339, 345, 352, 358, 364, 370, 376, 383, 389, 395, 401, 407, 414, 420, 426, 432, 438, 445, 451, 457, 463, 469, 475, 482, 488, 494, 500, 506, 513, 519, 525, 531, 537, 544, 550, 556, 562, 568, 575, 581, 587, 593, 599, 606, 612, 618, 624, 630
OFFSET
1,1
COMMENTS
See A184117 for the definition of lower and upper s-Wythoff sequences.
MATHEMATICA
k = 5; r = 1; d = Sqrt[4 + k^2];
a[n_] := Floor[(1/2) (d + 2 - k) (n + r/(d + 2))];
b[n_] := Floor[(1/2) (d + 2 + k) (n - r/(d + 2))];
Table[a[n], {n, 120}]
Table[b[n], {n, 120}]
CROSSREFS
Sequence in context: A194384 A287305 A189938 * A252596 A096448 A351140
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jan 16 2011
STATUS
approved