login
Decimal expansion of the least positive solution of cos(x) - sin(x) = 1/4.
5

%I #13 Aug 02 2024 11:40:40

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

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

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

%N Decimal expansion of the least positive solution of cos(x) - sin(x) = 1/4.

%F Equals arctan((16 - sqrt(31))/15). - _Vaclav Kotesovec_, Jul 08 2024

%e 0.6076875625523365632464335041833354352444603714104010593...

%t f = FindRoot[Cos[ x] - Sin[ x ] == 1/4, {x, {0, 2}}, WorkingPrecision -> 500][[1, 2]][[1]]

%t RealDigits[f][[1]]

%Y Cf. A197291, A372954, A372955, A374408, A372958, A372959.

%K nonn,cons

%O 0,1

%A _Clark Kimberling_, Jul 07 2024