cp's OEIS Frontend

A184514 Lower s-Wythoff sequence, where s(n)=4n-1. Complement of A184515.

%I A184514 #5 Mar 30 2012 18:57:16
%S A184514 1,2,3,5,6,7,8,10,11,12,13,15,16,17,18,19,21,22,23,24,26,27,28,29,31,
%T A184514 32,33,34,36,37,38,39,40,42,43,44,45,47,48,49,50,52,53,54,55,57,58,59,
%U A184514 60,61,63,64,65,66,68,69,70,71,73,74,75,76,78,79,80,81,83,84,85,86,87,89,90,91,92,94,95,96,97,99,100,101,102,104,105,106,107,108,110,111,112,113,115,116,117,118,120,121,122,123,125,126,127,128,129,131,132,133,134,136,137,138,139,141,142,143,144,146,147,148
%N A184514 Lower s-Wythoff sequence, where s(n)=4n-1.  Complement of A184515.
%C A184514 See A184117 for the definition of lower and upper s-Wythoff sequences.
%t A184514 k=4; r=1; d=Sqrt[4+k^2];
%t A184514 a[n_]:=Floor[(1/2)(d+2-k)(n+r/(d+2))];
%t A184514 b[n_]:=Floor[(1/2)(d+2+k)(n-r/(d+2))];
%t A184514 Table[a[n],{n,120}]
%t A184514 Table[b[n],{n,120}]
%Y A184514 Cf. A184117, A184515.
%K A184514 nonn
%O A184514 1,2
%A A184514 _Clark Kimberling_, Jan 16 2011