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 A184523 #10 Oct 16 2024 09:24:47 %S A184523 6,12,18,24,30,37,43,49,55,61,68,74,80,86,92,99,105,111,117,123,130, %T A184523 136,142,148,154,161,167,173,179,185,191,198,204,210,216,222,229,235, %U A184523 241,247,253,260,266,272,278,284,291,297,303,309,315,322,328,334,340 %N A184523 Upper s-Wythoff sequence, where s=5n. Complement of A184522. %C A184523 See A184117 for the definition of lower and upper s-Wythoff sequences. %F A184523 a(n) = floor((n/2)*(7+sqrt(29))). - _Jason Yuen_, Oct 16 2024 %t A184523 k = 5; r = -1; d = Sqrt[4 + k^2]; %t A184523 a[n_] := Floor[(1/2) (d + 2 - k) (n + r/(d + 2))]; %t A184523 b[n_] := Floor[(1/2) (d + 2 + k) (n - r/(d + 2))]; %t A184523 Table[a[n], {n, 120}] %t A184523 Table[b[n], {n, 120}] %Y A184523 Cf. A184117, A184522. %K A184523 nonn,easy %O A184523 1,1 %A A184523 _Clark Kimberling_, Jan 16 2011