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 A377969 #7 Nov 13 2024 16:31:46 %S A377969 2,6,7,4,4,4,8,0,8,3,5,3,5,2,2,8,6,8,1,5,5,6,7,4,0,8,5,5,8,5,8,7,2,8, %T A377969 6,4,0,9,8,5,2,2,4,9,9,7,0,6,2,2,7,6,3,8,2,4,8,0,0,6,2,7,6,5,8,2,4,2, %U A377969 6,4,5,6,6,4,1,2,3,4,7,1,5,1,0,4,9,8,1,5,7,3 %N A377969 Decimal expansion of the dihedral angle, in radians, between triangular faces in a snub cube. %H A377969 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/SnubCube.html">Snub Cube</a>. %F A377969 Equals 2*arcsec(sqrt(12*A377604^2 - 3)). %F A377969 Equals Pi - arccos((2*A058265 - 1)/3). %F A377969 Equals Pi - arccos(c), where c is the real root of 27*x^3 + 9*x^2 - 15*x - 13. %e A377969 2.674448083535228681556740855858728640985224997062... %t A377969 First[RealDigits[Pi - ArcCos[Root[27*#^3 + 9*#^2 - 15*# - 13 &, 1]], 10, 100]] (* or *) %t A377969 First[RealDigits[Max[PolyhedronData["SnubCube", "DihedralAngles"]], 10, 100]] %Y A377969 Cf. A058265, A377602, A377603, A377604, A377605, A377970. %K A377969 nonn,cons,easy %O A377969 1,1 %A A377969 _Paolo Xausa_, Nov 13 2024