login
Decimal expansion of the number u in [0,2 Pi] such that snc(u) = 0, where snc is the sine-normal-to-cosine function; see A332500.
2

%I #5 Jun 12 2020 00:07:52

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

%T 4,9,0,1,4,1,5,0,9,9,3,5,5,2,6,9,5,1,2,0,1,6,5,0,8,8,3,2,5,5,6,3,4,5,

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

%N Decimal expansion of the number u in [0,2 Pi] such that snc(u) = 0, where snc is the sine-normal-to-cosine function; see A332500.

%F u = x - Pi, where snc(x) = Pi, as in A332505.

%e u = 0.4787224241179413703304116508523039...

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

%t RealDigits[u][[1]]

%Y Cf. A332500, A332505.

%K nonn,cons

%O 0,1

%A _Clark Kimberling_, May 05 2020