%I #7 Mar 30 2012 18:57:16
%S 4,10,16,23,29,35,41,47,54,60,66,72,78,85,91,97,103,109,115,122,128,
%T 134,140,146,153,159,165,171,177,184,190,196,202,208,215,221,227,233,
%U 239,246,252,258,264,270,276,283,289,295,301,307,314,320,326,332,338
%N Upper s-Wythoff sequence, where s=5n-2. Complement of A184526.
%C See A184117 for the definition of lower and upper s-Wythoff sequences.
%t k = 5; r = 2; d = Sqrt[4 + k^2];
%t a[n_] := Floor[(1/2) (d + 2 - k) (n + r/(d + 2))];
%t b[n_] := Floor[(1/2) (d + 2 + k) (n - r/(d + 2))];
%t Table[a[n], {n, 120}]
%t Table[b[n], {n, 120}]
%Y Cf. A184117, A184526.
%K nonn
%O 1,1
%A _Clark Kimberling_, Jan 16 2011
|