A377604 - OEIS

%I #8 Nov 04 2024 09:16:19

%S 1,3,4,3,7,1,3,3,7,3,7,4,4,6,0,1,7,0,1,2,7,1,5,2,8,7,5,3,9,7,5,0,5,8,

%T 2,4,7,6,3,7,6,0,2,6,0,9,3,5,3,5,8,6,4,9,8,8,7,7,7,6,2,0,9,6,5,8,5,5,

%U 7,0,6,9,0,8,9,3,4,8,7,9,4,5,6,9,7,3,3,1,6,8

%N Decimal expansion of the circumradius of a snub cube (snub cuboctahedron) with unit edge length.

%H Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/SnubCube.html">Snub Cube</a>.

%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Snub_cube">Snub cube</a>.

%F Equals sqrt((3 - A058265)/(4*(2 - A058265))).

%e 1.343713373744601701271528753975058247637602609...

%t First[RealDigits[Sqrt[(3 - #)/(8 - 4*#)], 10, 100]] & [Root[#^3 - #^2 - # - 1 &, 1]] (* or *)

%t First[RealDigits[PolyhedronData["SnubCube", "Circumradius"], 10, 100]]

%Y Cf. A377602 (surface area), A377603 (volume), A377605 (midradius).

%Y Cf. A058265.

%K nonn,cons,easy

%O 1,2

%A _Paolo Xausa_, Nov 03 2024