A196829 - OEIS

%I #7 Aug 11 2021 15:29:02

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

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

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

%N Decimal expansion of the least x>0 satisfying 1/(1+x^2)=5*sin(x).

%e x=0.1939624306810067166300804717739574865548853986...

%t Plot[{1/(1 + x^2), Sin[x], 2 Sin[x], 3 Sin[x], 4 Sin[x]}, {x, 0, 2}]

%t t = x /. FindRoot[1 == (1 + x^2) Sin[x], {x, 0, 1}, WorkingPrecision -> 100]

%t RealDigits[t]  (* A196825 *)

%t t = x /. FindRoot[1 == 2 (1 + x^2) Sin[x], {x, 0, 1}, WorkingPrecision -> 100]

%t RealDigits[t]  (* A196826 *)

%t t = x /. FindRoot[1 == 3 (1 + x^2) Sin[x], {x, 0, 1}, WorkingPrecision -> 100]

%t RealDigits[t]  (* A196827 *)

%t t = x /. FindRoot[1 == 4 (1 + x^2) Sin[x], {x, 0, 1}, WorkingPrecision -> 100]

%t RealDigits[t]  (* A196828 *)

%t t = x /. FindRoot[1 == 5 (1 + x^2) Sin[x], {x, 0, 1}, WorkingPrecision -> 100]

%t RealDigits[t]  (* A196829 *)

%t t = x /. FindRoot[1 == 6 (1 + x^2) Sin[x], {x, 0, 1}, WorkingPrecision -> 100]

%t RealDigits[t]  (* A196830 *)

%Y Cf. A196832.

%K nonn,cons

%O 0,2

%A _Clark Kimberling_, Oct 07 2011

%E Offset corrected by _Georg Fischer_, Aug 10 2021