login
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

%I #5 Jun 12 2020 00:08:23

%S 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,

%T 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,

%U 8,0,1,5,0,8,6,6,8,9,4,8,0,9,0,1,7,1

%N 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).

%e u = 0.5530300788531359553083686485...

%t u = u /. FindRoot[0 == - 2 Sec[u] + u Sec[u] + Sin[u], {u, 0}, WorkingPrecision -> 150]

%t RealDigits[u][[1]]

%Y Cf. A332500, A332507.

%K nonn,cons

%O 0,1

%A _Clark Kimberling_, May 05 2020