OFFSET
1,1
LINKS
Eric Weisstein's World of Mathematics, Bean Curve
EXAMPLE
3.931702798...
MATHEMATICA
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]
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Eric W. Weisstein, Jul 23 2020
STATUS
approved