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 A184531 #6 Mar 30 2012 18:57:16 %S A184531 2,9,15,21,27,33,39,46,52,58,64,70,77,83,89,95,101,108,114,120,126, %T A184531 132,139,145,151,157,163,170,176,182,188,194,201,207,213,219,225,231, %U A184531 238,244,250,256,262,269,275,281,287,293,300,306,312,318,324,331,337 %N A184531 Upper s-Wythoff sequence, where s=5n-4. Complement of A184530. %C A184531 See A184117 for the definition of lower and upper s-Wythoff sequences. %t A184531 k = 5; r = 4; d = Sqrt[4 + k^2]; %t A184531 a[n_] := Floor[(1/2) (d + 2 - k) (n + r/(d + 2))]; %t A184531 b[n_] := Floor[(1/2) (d + 2 + k) (n - r/(d + 2))]; %t A184531 Table[a[n], {n, 120}] %t A184531 Table[b[n], {n, 120}] %Y A184531 Cf. A184117, A184530. %K A184531 nonn %O A184531 1,1 %A A184531 _Clark Kimberling_, Jan 16 2011