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

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, 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, 7, 0, 6, 9, 0, 8, 9, 3, 4, 8, 7, 9, 4, 5, 6, 9, 7, 3, 3, 1, 6, 8

Offset: 1

Author

Paolo Xausa, Nov 03 2024

Keywords

• nonn
• cons
• easy

Examples

			1.343713373744601701271528753975058247637602609...
		

Links

• Eric Weisstein's World of Mathematics, Snub Cube.
• Wikipedia, Snub cube.

Crossrefs

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

Cf. A058265.

Programs

Mathematica

First[RealDigits[Sqrt[(3 - #)/(8 - 4*#)], 10, 100]] & [Root[#^3 - #^2 - # - 1 &, 1]] (* or *)
First[RealDigits[PolyhedronData["SnubCube", "Circumradius"], 10, 100]]

Formula

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