A193505 Decimal expansion of bean curve area.
1, 0, 5, 8, 0, 4, 9, 6, 2, 9, 1, 3, 6, 6, 2, 7, 0, 7, 9, 5, 1, 3, 2, 1, 2, 3, 1, 6, 9, 5, 7, 9, 2, 4, 1, 7, 7, 1, 6, 5, 7, 0, 5, 3, 1, 1, 3, 8, 7, 4, 3, 2, 0, 0, 2, 4, 1, 5, 7, 6, 6, 2, 1, 2, 3, 0, 9, 7, 3, 8, 5, 2, 2, 3, 2, 3, 7, 0, 6, 4, 3, 2, 1, 4, 9, 0, 7, 2, 9, 0, 9, 7, 9, 0, 3, 6, 8, 4, 3, 1, 8, 3, 2, 7, 9
Offset: 1
Examples
1.058049629...
Links
- Eric Weisstein's World of Mathematics, Bean Curve
Crossrefs
Cf. A193306 (arc length).
Programs
-
Mathematica
area = Sqrt[2] NIntegrate[Sqrt[x (1 - x + Sqrt[1 + (2 - 3 x) x])], {x, 0, 1}, WorkingPrecision -> 120]; Take[RealDigits[area][[1]], 105] RealDigits[7 Pi/(12 Sqrt[3]), 10, 105][[1]] (* Eric W. Weisstein, Feb 05 2018 *)
Comments