A332507 Decimal expansion of the number u such that the line normal to the graph of y = sin x at (u, sin u) passes through (1,0).

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

Offset

0,1

Links

Table of n, a(n) for n=0..85.

Example

u = 0.5530300788531359553083686485...

Mathematica

u = u /. FindRoot[0 == - Sec[u] + u Sec[u] + Sin[u], {u, 0}, WorkingPrecision -> 150]
RealDigits[u][[1]]

Crossrefs

Cf. A332500, A332521.

Sequence in context: A377751 A128006 A157703 * A242617 A158349 A320478

Adjacent sequences: A332504 A332505 A332506 * A332508 A332509 A332510

Keyword

nonn,cons

Author

Clark Kimberling, May 05 2020

Status

approved