|
%I #6 Mar 30 2012 18:57:16
%S 3,9,16,22,28,34,40,47,53,59,65,71,77,84,90,96,102,108,115,121,127,
%T 133,139,146,152,158,164,170,177,183,189,195,201,208,214,220,226,232,
%U 238,245,251,257,263,269,276,282,288,294,300,307,313,319,325,331,338
%N Upper s-Wythoff sequence, where s=5n-3. Complement of A184528.
%C See A184117 for the definition of lower and upper s-Wythoff sequences.
%t k = 5; r = 3; 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, A184528.
%K nonn
%O 1,1
%A _Clark Kimberling_, Jan 16 2011
|
