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