A377346 - OEIS

%I #4 Nov 01 2024 23:48:46

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

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

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

%N Decimal expansion of the midradius of a truncated cuboctahedron (great rhombicuboctahedron) with unit edge length.

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

%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Truncated_cuboctahedron">Truncated cuboctahedron</a>.

%F Equals sqrt(12 + 6*sqrt(2))/2 = sqrt(12 + A010524)/2 = sqrt(3 + 3/sqrt(2)) = sqrt(3 + A230981).

%e 2.26303343845371462359202580343253714222906720265...

%t First[RealDigits[Sqrt[3 + 3/Sqrt[2]], 10, 100]] (* or *)

%t First[RealDigits[PolyhedronData["TruncatedCuboctahedron", "Midradius"], 10, 100]]

%Y Cf. A377343 (surface area), A377344 (volume), A377345 (circumradius).

%Y Cf. A010527 (analogous for a cuboctahedron).

%Y Cf. A010524, A230981.

%K nonn,cons,easy

%O 1,1

%A _Paolo Xausa_, Oct 26 2024