A378392 Decimal expansion of the inradius of a deltoidal icositetrahedron with unit shorter edge length.

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

Offset: 1

Author

Paolo Xausa, Nov 30 2024

Keywords

• nonn
• cons
• easy

Comments

The deltoidal icositetrahedron is the dual polyhedron of the (small) rhombicuboctahedron.

Examples

			1.4575767431694506679193428707184970573873139019359...
		

Links

• Paolo Xausa, Table of n, a(n) for n = 1..10000
• Index entries for algebraic numbers, degree 4.

Crossrefs

Cf. A378390 (surface area), A378391 (volume), A378393 (midradius), A378394 (dihedral angle).

Cf. A002193.

Programs

Mathematica

First[RealDigits[Sqrt[39/34 + 47/(34*Sqrt[2])], 10, 100]] (* or *)
First[RealDigits[PolyhedronData["DeltoidalIcositetrahedron", "Inradius"], 10, 100]]

Formula

Equals sqrt(39/34 + 47/(34*sqrt(2))) = sqrt(39/34 + 47/(34*A002193)).