A138499 Decimal expansion of the loop arc length of the Maclaurin trisectrix.

8, 2, 4, 4, 6, 5, 3, 2, 9, 1, 5, 1, 7, 8, 6, 7, 6, 3, 5, 3, 8, 8, 0, 4, 0, 8, 7, 8, 8, 3, 0, 7, 9, 7, 3, 9, 2, 9, 0, 3, 3, 5, 8, 3, 5, 5, 5, 3, 7, 6, 0, 6, 4, 2, 2, 7, 1, 6, 5, 2, 7, 2, 4, 1, 3, 9, 7, 3, 0, 5, 3, 0, 8, 2, 0, 8, 9, 1, 8, 0, 1, 9, 8, 2, 2, 5, 5, 1, 7, 2, 0, 6, 8, 5, 6, 5, 7, 0, 1, 3, 2, 8, 0, 0, 3

Offset

1,1

Links

Table of n, a(n) for n=1..105.

Eric Weisstein's World of Mathematics, Maclaurin Trisectrix

Example

8.2446532915178676353...

Maple

Re(evalf(-6*I*EllipticE(I*sqrt(3), 1/3), 120)); # Vaclav Kotesovec, Apr 22 2015

Mathematica

RealDigits[N[(-6*I)*EllipticE[I*ArcSinh[Sqrt[3]], 1/9], 106]][[1]]
RealDigits[6 (1 + EllipticF[Pi/3, 8/9] - EllipticE[Pi/3, 8/9]), 10, 106][[1]] (* Jan Mangaldan, Nov 23 2020 *)

Crossrefs

Sequence in context: A083729 A019775 A274211 * A153387 A342261 A010520

Adjacent sequences: A138496 A138497 A138498 * A138500 A138501 A138502

Keyword

nonn,cons

Author

Eric W. Weisstein, Mar 20 2008

Status

approved