%I #7 Oct 22 2021 23:57:42
%S 4,1,7,6,2,7,8,3,5,8,3,5,1,3,8,9,3,2,5,4,9,9,8,5,7,7,6,9,1,8,7,7,7,7,
%T 8,5,5,4,7,7,6,8,3,2,2,9,5,7,5,7,5,5,3,4,2,0,0,2,9,0,2,0,5,7,6,2,7,1,
%U 4,5,4,6,1,4,9,3,8,0,6,8,0,6,8,3,6,2,8,1,4,4,8,4,4,4,0,5,8,5,0,3
%N Decimal expansion of the distance between the centers of two unit-radius circles such that the position of centroid of each of the two lunes created by their intersection is on its boundary.
%C A lune is the crescent-shaped region bounded by two circular arcs. Since the shape is concave, its centroid may lie either inside the shape, outside it, or on its boundary, depending on the radii of the arcs and the distance between them.
%C Let alpha be the angle between two segments, the first is connecting the center of one of the circles to one of the lune's vertices, and the second is connecting the centers of the two circles (see the illustration in the links section). Then, this constant is equal to 2*cos(alpha), where alpha = 1.360434... radians or 77.947146... degrees.
%H Amiram Eldar, <a href="/A348564/a348564.jpg">Illustration</a>.
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Centroid">Centroid</a>.
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Lune_(geometry)">Lune (geometry)</a>.
%F Equals 2*cos(x) where x is the smaller of the two positive roots of the equation Pi * (2 + 1/(cos(x)-1)) + sin(2*x) - 2*x = 0 (the larger root is Pi/2).
%e 0.41762783583513893254998577691877778554776832295757...
%t RealDigits[2*Cos[x] /. FindRoot[Pi*(2 + 1/(Cos[x] - 1)) + Sin[2*x] - 2*x == 0, {x, 1}, WorkingPrecision -> 110], 10, 100][[1]]
%Y Cf. A255899.
%K nonn,cons
%O 0,1
%A _Amiram Eldar_, Oct 22 2021
|