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