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 A184522 #7 Oct 16 2024 21:24:06
%S A184522 1,2,3,4,5,7,8,9,10,11,13,14,15,16,17,19,20,21,22,23,25,26,27,28,29,
%T A184522 31,32,33,34,35,36,38,39,40,41,42,44,45,46,47,48,50,51,52,53,54,56,57,
%U A184522 58,59,60,62,63,64,65,66,67,69,70,71,72,73,75,76,77,78,79,81,82,83,84,85,87,88,89,90,91,93,94,95,96,97,98,100,101,102,103,104,106,107,108,109,110,112,113,114,115,116,118,119,120,121,122,124,125,126,127,128,129,131,132,133,134,135,137,138,139,140,141,143
%N A184522 Upper s-Wythoff sequence, where s=5n. Complement of A184523.
%C A184522 See A184117 for the definition of lower and upper s-Wythoff sequences.
%F A184522 a(n) = floor((n/2)*(-3+sqrt(29))).
%t A184522 k = 5; r = 0; d = Sqrt[4 + k^2];
%t A184522 a[n_] := Floor[(1/2) (d + 2 - k) (n + r/(d + 2))];
%t A184522 b[n_] := Floor[(1/2) (d + 2 + k) (n - r/(d + 2))];
%t A184522 Table[a[n], {n, 120}]
%t A184522 Table[b[n], {n, 120}]
%Y A184522 Cf. A184117, A184523.
%K A184522 nonn,easy
%O A184522 1,2
%A A184522 _Clark Kimberling_, Jan 16 2011