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 A116397 #13 Feb 16 2025 08:33:00 %S A116397 8,5,3,0,2,5,7,9,1,9,1,9,1,9,6,2,4,8,8,8,9,5,4,2,6,2,5,7,0,8,4,0,1,5, %T A116397 3,3,6,7,3,5,3,8,3,9,8,6,3,3,5,1,7,9,7,0,3,9,9,3,7,0,7,8,2,4,5,9,4,6, %U A116397 5,5,1,1,6,0,5,6,8,6,3,3,0,5,7,2,1,4,0,7,4,5,7,8,3,6,2,3,6,9,0,0,1,7,1,0,1 %N A116397 Decimal expansion of P^24 where P = plastic constant (A060006). %H A116397 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PlasticConstant.html">Plastic Constant</a> %H A116397 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/DedekindEtaFunction.html">Dedekind Eta Function</a> %e A116397 853.0257919191962488... %t A116397 RealDigits[(x/.First[Solve[x^3-x-1==0,x]])^24,10,120][[1]] (* _Harvey P. Dale_, Jun 24 2011 *) %t A116397 Root[ #^3 - 853#^2 - 22# - 1 & , 1] // RealDigits[#, 10, 105]& // First (* _Jean-François Alcover_, Mar 05 2013 *) %Y A116397 Cf. A060006. %K A116397 nonn,cons %O A116397 3,1 %A A116397 _Eric W. Weisstein_, Feb 12 2006