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

Author

Clark Kimberling, May 05 2020

Keywords

• nonn
• cons

Examples

			u = 0.5530300788531359553083686485...
		

Crossrefs

Cf. A332500, A332521.

Programs

Mathematica

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