A184525 - OEIS

%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