|
%I #4 Mar 30 2012 18:57:16
%S 4,9,14,20,25,30,35,41,46,51,56,62,67,72,77,82,88,93,98,103,109,114,
%T 119,124,130,135,140,145,151,156,161,166,171,177,182,187,192,198,203,
%U 208,213,219,224,229,234,240,245,250,255,260,266,271,276,281,287,292,297,302,308,313,318,323,329,334,339,344,350,355,360,365,370,376,381,386,391,397,402,407,412,418,423,428,433,439,444,449,454,459,465,470,475,480,486,491,496,501
%N Upper s-Wythoff sequence, where s=4n-1. Complement of A184514.
%C See A184117 for the definition of lower and upper s-Wythoff sequences.
%t k=4; 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, A184514.
%K nonn
%O 1,1
%A _Clark Kimberling_, Jan 16 2011
|
