%I #14 Aug 02 2024 11:39:27

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

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

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

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

%F Equals arctan((9 - 2*sqrt(14))/5). - _Vaclav Kotesovec_, Jul 01 2024

%e 0.29451548510813694103475196456303627505036519094483792...

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

%t RealDigits[f][[1]]

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

%K nonn,cons

%O 0,1

%A _Clark Kimberling_, Jul 01 2024