Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A332521
Decimal expansion of the number u such that the line normal to the graph of y = sin x at (u, sin u) passes through (2,0).
1
2, 4, 8, 3, 8, 0, 4, 0, 1, 0, 2, 9, 4, 7, 4, 0, 9, 0, 1, 4, 7, 3, 2, 5, 7, 3, 6, 9, 1, 4, 8, 6, 8, 8, 9, 9, 2, 5, 1, 8, 5, 8, 3, 0, 5, 4, 8, 9, 7, 5, 2, 3, 3, 2, 3, 6, 6, 6, 7, 5, 2, 8, 0, 6, 5, 4, 3, 5, 8, 0, 1, 5, 0, 8, 6, 6, 8, 9, 4, 8, 0, 9, 0, 1, 7, 1
OFFSET
0,1
EXAMPLE
u = 0.5530300788531359553083686485...
MATHEMATICA
u = u /. FindRoot[0 == - 2 Sec[u] + u Sec[u] + Sin[u], {u, 0}, WorkingPrecision -> 150]
RealDigits[u][[1]]
CROSSREFS
Sequence in context: A087089 A367750 A197382 * A246363 A319268 A277272
KEYWORD
nonn,cons
AUTHOR
Clark Kimberling, May 05 2020
STATUS
approved