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 A377605 #7 Feb 11 2025 14:38:34 %S A377605 1,2,4,7,2,2,3,1,6,7,9,9,3,6,4,3,2,5,1,7,6,9,9,1,8,9,6,0,8,9,8,0,3,0, %T A377605 5,8,3,4,1,6,8,7,0,1,8,0,0,1,9,5,5,8,5,2,5,7,6,3,3,8,6,0,0,6,4,6,2,7, %U A377605 5,1,4,7,8,3,2,6,1,5,9,1,8,8,8,4,1,5,8,6,2,1 %N A377605 Decimal expansion of the midradius of a snub cube (snub cuboctahedron) with unit edge length. %H A377605 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/SnubCube.html">Snub Cube</a>. %H A377605 Wikipedia, <a href="https://en.wikipedia.org/wiki/Snub_cube">Snub cube</a>. %H A377605 <a href="/index/Al#algebraic_06">Index entries for algebraic numbers, degree 6</a>. %F A377605 Equals sqrt(1/(4*(2 - A058265))). %e A377605 1.2472231679936432517699189608980305834168701800... %t A377605 First[RealDigits[Sqrt[1/(8 - 4*#)], 10, 100]] & [Root[#^3 - #^2 - # - 1 &, 1]] (* or *) %t A377605 First[RealDigits[PolyhedronData["SnubCube", "Midradius"], 10, 100]] %o A377605 (PARI) polrootsreal(64*x^6 - 112*x^4 + 20*x^2 - 1)[2] \\ _Charles R Greathouse IV_, Feb 11 2025 %Y A377605 Cf. A377602 (surface area), A377603 (volume), A377604 (circumradius). %Y A377605 Cf. A058265. %K A377605 nonn,cons,easy %O A377605 1,2 %A A377605 _Paolo Xausa_, Nov 03 2024