|
%I #5 Aug 15 2015 14:59:31
%S 7,1,5,5,5,4,7,2,4,1,5,2,9,4,3,9,3,9,7,2,6,8,4,1,0,9,2,0,7,5,4,2,4,9,
%T 4,0,8,8,0,6,1,3,1,0,5,3,9,1,2,3,5,9,3,2,9,2,2,3,8,8,4,8,4,8,9,3,0,5,
%U 9,6,9,2,2,5,6,8,4,2,8,2,8,6,4,0,1,8,3,4,4,4,4,1,6,2,3,6,9,1,2,6,8,6,4,4,5
%N Decimal expansion of the arc length of the bifolium.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Bifolium.html">Bifolium</a>
%e 7.1555472415294393972...
%t RealDigits[4*Sqrt[2]*NIntegrate[Sqrt[3 + 3*Cos[2q] + 2*Cos[4q]]*Sin[q], {q, 0, Pi/2}, WorkingPrecision -> 150],10,110][[1]]
%K nonn,cons
%O 1,1
%A _Eric W. Weisstein_, Apr 22 2006
|
