This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A184482 #4 Mar 30 2012 18:57:16
%S A184482 1,2,4,5,6,8,9,10,11,13,14,15,17,18,19,21,22,23,24,26,27,28,30,31,32,
%T A184482 34,35,36,38,39,40,41,43,44,45,47,48,49,51,52,53,54,56,57,58,60,61,62,
%U A184482 64,65,66,67,69,70,71,73,74,75,77,78,79,81,82,83,84,86,87,88,90,91,92,94,95,96,97,99,100,101,103,104,105,107,108,109,110,112,113,114,116,117,118,120,121,122,123,125,126,127,129,130,131,133,134,135,137,138,139,140,142,143,144,146,147,148,150,151,152,153,155,156
%N A184482 Lower s-Wythoff sequence, where s(n)=3n-1. Complement of A184483.
%t A184482 k=3; r=1; d=Sqrt[4+k^2];
%t A184482 a[n_]:=Floor[(1/2)(d+2-k)(n+r/(d+2))];
%t A184482 b[n_]:=Floor[(1/2)(d+2+k)(n-r/(d+2))];
%t A184482 Table[a[n],{n,120}]
%t A184482 Table[b[n],{n,120}]
%Y A184482 Cf. A184117, A184483.
%K A184482 nonn
%O A184482 1,2
%A A184482 _Clark Kimberling_, Jan 15 2011