%I #11 Jul 25 2020 10:22:09
%S 3,9,3,1,7,0,2,7,9,8,9,5,4,5,0,1,4,2,7,9,0,9,9,6,8,6,2,5,7,8,4,2,5,8,
%T 9,6,9,6,3,8,4,9,1,0,4,5,1,0,7,7,4,2,9,0,9,1,8,0,6,2,7,6,6,1,2,1,0,7,
%U 8,1,5,8,2,6,7,9,5,1,4,1,8,5,2,3,1,0,9,8,9,2,3,5,0,5,0,4,3,5,2,8,3,9,3,3,5,9,7,9,0,4
%N Decimal expansion of lima bean curve perimeter.
%H Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/BeanCurve.html">Bean Curve</a>
%e 3.931702798...
%t Take[RealDigits[NIntegrate[Sqrt[1 + 3/2 Sin[x]^2 - 2 Sin[x]^3], {x, 0, 2 Pi}, WorkingPrecision -> 220, PrecisionGoal -> 110]/2][[1]], 110]
%Y Cf. A193506 (decimal expansion of the simple bean curve perimeter).
%K nonn,cons
%O 1,1
%A _Eric W. Weisstein_, Jul 23 2020
|