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 A317202 #14 May 30 2023 02:23:08
%S A317202 3,1,9,1,4,8,7,8,8,3,9,5,3,1,1,8,7,4,7,0,6,1,3,5,4,2,6,8,2,2,7,5,1,7,
%T A317202 2,9,3,4,7,4,6,9,1,0,2,1,8,7,4,2,8,8,0,9,1,0,0,9,7,8,1,3,3,8,6,1,7,6,
%U A317202 8,5,9,4,8,0,0,4,9,7,0,1,4,6,1,1,1
%N A317202 Decimal expansion of 3 + (t^2+t^4)/2, where t = 0.543689... (A192918) is the real root of x^3 + x^2 + x = 1.
%C A317202 The minimal polynomial of this constant is 2*x^3 - 12*x^2 + 22*x - 13, and it is its unique real root. - _Amiram Eldar_, May 30 2023
%H A317202 Bo Tan and Zhi-Ying Wen, <a href="http://dx.doi.org/10.1016/j.ejc.2006.07.007">Some properties of the Tribonacci sequence</a>, European Journal of Combinatorics, 28 (2007) 1703-1719. See Theorem 4.5.
%e A317202 3.191487883953118747061354268227517293474691...
%t A317202 RealDigits[x /. FindRoot[2*x^3 - 12*x^2 + 22*x - 13, {x, 3}, WorkingPrecision -> 120]][[1]] (* _Amiram Eldar_, May 30 2023 *)
%Y A317202 Cf. A316711, A192918.
%K A317202 nonn,cons
%O A317202 1,1
%A A317202 _N. J. A. Sloane_, Aug 05 2018