# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a184484 Showing 1-1 of 1 %I A184484 #4 Mar 30 2012 18:57:16 %S A184484 1,3,4,5,6,8,9,10,12,13,14,16,17,18,20,21,22,23,25,26,27,29,30,31,33, %T A184484 34,35,36,38,39,40,42,43,44,46,47,48,49,51,52,53,55,56,57,59,60,61,62, %U A184484 64,65,66,68,69,70,72,73,74,76,77,78,79,81,82,83,85,86,87,89,90,91,92,94,95,96,98,99,100,102,103,104,105,107,108,109,111,112,113,115,116,117,119,120,121,122,124,125,126,128,129,130,132,133,134,135,137,138,139,141,142,143,145,146,147,148,150,151,152,154,155,156 %N A184484 Lower s-Wythoff sequence, where s(n)=3n-2. Complement of A184485. %t A184484 k=3; r=2; d=Sqrt[4+k^2]; %t A184484 a[n_]:=Floor[(1/2)(d+2-k)(n+r/(d+2))]; %t A184484 b[n_]:=Floor[(1/2)(d+2+k)(n-r/(d+2))]; %t A184484 Table[a[n],{n,120}] %t A184484 Table[b[n],{n,120}] %Y A184484 Cf. A184117, A184485. %K A184484 nonn %O A184484 1,2 %A A184484 _Clark Kimberling_, Jan 15 2011 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE