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 A293509 #31 Feb 16 2025 08:36:14
%S A293509 1,5,3,4,1,5,7,7,4,4,9,1,4,2,6,6,9,1,5,4,3,5,9,7,0,0,7,6,1,0,9,3,7,5,
%T A293509 7,0,1,8,8,2,5,4,5,0,3,8,5,1,6,5,9,5,1,3,5,3,6,8,5,3,1,8,6,3,0,0,8,0,
%U A293509 6,3,0,2,3,2,1,4,0,8,2,2,8,1,4,3,6,7,8
%N A293509 Decimal expansion of real root of x^5 - x^3 - x^2 - x - 1.
%C A293509 This root is also the sixth smallest of the Pisot numbers.
%H A293509 Iain Fox, <a href="/A293509/b293509.txt">Table of n, a(n) for n = 1..20000</a>
%H A293509 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PisotNumber.html">Pisot Number</a>.
%H A293509 Wikipedia, <a href="https://en.wikipedia.org/wiki/Pisot%E2%80%93Vijayaraghavan_number">Pisot-Vijayaraghavan number</a>
%H A293509 <a href="/index/Al#algebraic_05">Index entries for algebraic numbers, degree 5</a>
%e A293509 1.53415774491426691543597007610937570188254503851659513536853186300806302321...
%t A293509 RealDigits[ Solve[ x^5 - x^3 - x^2 - x - 1 == 0, x, WorkingPrecision -> 111][[-1, 1, 2]], 10, 111][[1]] (* _Robert G. Wilson v_, Nov 04 2017 *)
%o A293509 (PARI) solve(x=1, 2, x^5 - x^3 - x^2 - x - 1) \\ _Michel Marcus_, Oct 13 2017
%o A293509 (PARI) default(realprecision, 20080); x=solve(x=1, 2, x^5 - x^3 - x^2 - x - 1); for (n=1, 20000, d=floor(x); x=(x-d)*10; write("b293509.txt", n, " ", d)); \\ _Iain Fox_, Oct 23 2017
%o A293509 (PARI) polrootsreal(x^5 - x^3 - x^2 - x - 1)[1] \\ _Charles R Greathouse IV_, Nov 04 2017
%Y A293509 Cf. A060006, A086106, A228777, A092526, A293506, A293508, A293557.
%K A293509 cons,nonn
%O A293509 1,2
%A A293509 _Iain Fox_, Oct 11 2017