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 A289917 #21 Feb 06 2024 16:22:50
%S A289917 1,7,2,2,0,8,3,8,0,5,7,3,9,0,4,2,2,4,5,0,2,7,0,6,9,2,1,2,1,5,3,8,3,1,
%T A289917 4,6,2,0,7,0,1,1,6,5,5,5,7,5,1,5,5,0,3,0,7,0,4,8,7,8,3,1,3,3,5,4,2,3,
%U A289917 0,3,7,9,5,0,6,6,0,9,8,2,9,0,7,0,9,4
%N A289917 Decimal expansion of the limiting ratio of consecutive terms of A289916.
%F A289917 Equals (1 + sqrt(13) + sqrt(2*sqrt(13) - 2))/4. - _Vaclav Kotesovec_, Aug 27 2021
%F A289917 Largest real root of x^4 - x^3 - x^2 - x + 1. - _Linas Vepstas_, Feb 06 2024
%e A289917 1.722083805739042245027069212153831462070116555...
%t A289917 z = 2000; r = 9/7;
%t A289917 u = CoefficientList[Series[1/Sum[Round[(k + 1)*r] (-x)^k, {k, 0, z}], {x, 0, z}],
%t A289917 x]; (* A289916 *)
%t A289917 v = N[u[[z]]/u[[z - 1]], 200]
%t A289917 RealDigits[v, 10][[1]] (* A289917 *)
%Y A289917 Cf. A078140 (includes guide to related constants), A289916.
%K A289917 nonn,cons,easy
%O A289917 1,2
%A A289917 _Clark Kimberling_, Jul 18 2017