A196762 - OEIS

%I #10 Aug 09 2021 14:07:15

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

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

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

%N Decimal expansion of the least x > 0 satisfying 4=x*sin(x).

%e 6.9014126090213042932387323136399265516592011535132768777...

%t t = x /. FindRoot[4/x == Sin[x], {x, 6, 7}, WorkingPrecision -> 100]

%t RealDigits[t]

%o (PARI) solve(x=6,7, 4/x-sin(x)) \\ _Charles R Greathouse IV_, Sep 06 2016

%Y Cf. A196765.

%K nonn,cons

%O 1,1

%A _Clark Kimberling_, Oct 06 2011