|
%I #4 Mar 30 2012 18:57:16
%S 5,11,17,23,30,36,42,48,54,61,67,73,79,85,92,98,104,110,116,123,129,
%T 135,141,147,153,160,166,172,178,184,191,197,203,209,215,222,228,234,
%U 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
%N Upper s-Wythoff sequence, where s=5n-1. Complement of A184524.
%C See A184117 for the definition of lower and upper s-Wythoff sequences.
%t k = 5; r = 1; 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, A184524.
%K nonn
%O 1,1
%A _Clark Kimberling_, Jan 16 2011
|
