login
Lower s-Wythoff sequence, where s=5n-4. Complement of A184531.
1

%I #6 Mar 30 2012 18:57:16

%S 1,3,4,5,6,7,8,10,11,12,13,14,16,17,18,19,20,22,23,24,25,26,28,29,30,

%T 31,32,34,35,36,37,38,40,41,42,43,44,45,47,48,49,50,51,53,54,55,56,57,

%U 59,60,61,62,63,65,66,67,68,69,71,72,73,74,75,76,78,79

%N Lower s-Wythoff sequence, where s=5n-4. Complement of A184531.

%C See A184117 for the definition of lower and upper s-Wythoff sequences.

%t k = 5; r = 4; 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, A184531.

%K nonn

%O 1,2

%A _Clark Kimberling_, Jan 16 2011