OFFSET
1,1
COMMENTS
See A184117 for the definition of lower and upper s-Wythoff sequences.
MATHEMATICA
k = 4; r = 3; 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
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jan 16 2011
STATUS
approved