A394535 - OEIS

%I #11 May 22 2026 08:00:46

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

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

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

%N Decimal expansion of the surface area of a uniform octagonal antiprism with unit edges.

%H Paolo Xausa, <a href="/A394535/b394535.txt">Table of n, a(n) for n = 2..10000</a>

%H David I. McCooey, <a href="https://dmccooey.com/polyhedra/OctagonalAntiprism.html">Octagonal Antiprism</a>.

%H Polytope Wiki, <a href="https://polytope.miraheze.org/wiki/Octagonal_antiprism">Octagonal antiprism</a>.

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

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

%F Equals 4*(1 + sqrt(2) + sqrt(3)) = 4*A297701.

%F Equals the largest root of x^4 - 16*x^3 - 64*x^2 + 1024*x - 2048.

%e 16.585057479767889369316540262862281782049908516749...

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

%t First[RealDigits[PolyhedronData["OctagonalAntiprism", "SurfaceArea"], 10, 100]]

%Y Cf. A394534 (volume), A394536 (midradius), A394537 (circumradius), A394538 (height).

%Y Cf. A387320, A387323 (dihedral angles).

%Y Cf. A297701.

%K nonn,cons,easy

%O 2,2

%A _Paolo Xausa_, Apr 05 2026