|
%I #21 Jul 12 2021 14:56:51
%S 0,7,0,4,7,7,0,9,2,3,0,1,0,4,5,7,9,7,2,4,6,7,5,9,8,5,2,0,8,8,6,8,1,5,
%T 2,5,8,6,2,7,1,8,2,0,7,2,7,8,2,3,6,2,5,9,6,4,5,9,5,6,8,8,0,6,4,2,7,9,
%U 4,1,6,9,4,6,8,8,7,0,4,4,8,0,7,7,3,4,4,4,3,1,9,2,9,2,4,3,4,2,4,6,1,5,3,2,6
%N The Reuleaux Triangle constant.
%D Martin Gardner, "The Unexpected Hanging," page 215.
%D Clifford A. Pickover, The Math Book, Sterling Publishing Co. (New York), 2009, p. 266.
%H Harry J. Smith, <a href="/A060708/b060708.txt">Table of n, a(n) for n = 1..20000</a>
%H Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/ReuleauxTriangle.html">Reuleaux Triangle</a>
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Reuleaux_triangle#Extremal_measures">Reuleaux triangle</a>
%F Equals (Pi - sqrt(3))/2.
%e 0.704770923010457972467598520886815258627182072782362596459568806427941... [_Harry J. Smith_, Jul 09 2009]
%t RealDigits[N[(Pi - Sqrt[3])/2, 100]][[1]]
%o (PARI) { default(realprecision, 20080); x=(Pi - sqrt(3))/2; for (n=1, 20000, d=floor(x); x=(x-d)*10; write("b060708.txt", n, " ", d)); } \\ _Harry J. Smith_, Jul 09 2009
%Y Cf. A060709.
%K nonn,cons
%O 1,2
%A _Robert G. Wilson v_, Feb 05 2001
%E Final digits of sequence corrected using the b-file. - _N. J. A. Sloane_, Aug 30 2009
|
