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 A184515 #4 Mar 30 2012 18:57:16
%S A184515 4,9,14,20,25,30,35,41,46,51,56,62,67,72,77,82,88,93,98,103,109,114,
%T A184515 119,124,130,135,140,145,151,156,161,166,171,177,182,187,192,198,203,
%U A184515 208,213,219,224,229,234,240,245,250,255,260,266,271,276,281,287,292,297,302,308,313,318,323,329,334,339,344,350,355,360,365,370,376,381,386,391,397,402,407,412,418,423,428,433,439,444,449,454,459,465,470,475,480,486,491,496,501
%N A184515 Upper s-Wythoff sequence, where s=4n-1. Complement of A184514.
%C A184515 See A184117 for the definition of lower and upper s-Wythoff sequences.
%t A184515 k=4; r=1; d=Sqrt[4+k^2];
%t A184515 a[n_]:=Floor[(1/2)(d+2-k)(n+r/(d+2))];
%t A184515 b[n_]:=Floor[(1/2)(d+2+k)(n-r/(d+2))];
%t A184515 Table[a[n],{n,120}]
%t A184515 Table[b[n],{n,120}]
%Y A184515 Cf. A184117, A184514.
%K A184515 nonn
%O A184515 1,1
%A A184515 _Clark Kimberling_, Jan 16 2011