OFFSET
0,1
EXAMPLE
x=0.238777659445904852564729030954613747638153989...
MATHEMATICA
Plot[{1/(1 + x^2), Sin[x], 2 Sin[x], 3 Sin[x], 4 Sin[x]}, {x, 0, 2}]
t = x /. FindRoot[1 == (1 + x^2) Sin[x], {x, 0, 1}, WorkingPrecision -> 100]
RealDigits[t] (* A196825 *)
t = x /. FindRoot[1 == 2 (1 + x^2) Sin[x], {x, 0, 1}, WorkingPrecision -> 100]
RealDigits[t] (* A196826 *)
t = x /. FindRoot[1 == 3 (1 + x^2) Sin[x], {x, 0, 1}, WorkingPrecision -> 100]
RealDigits[t] (* A196827 *)
t = x /. FindRoot[1 == 4 (1 + x^2) Sin[x], {x, 0, 1}, WorkingPrecision -> 100]
RealDigits[t] (* A196828 *)
t = x /. FindRoot[1 == 5 (1 + x^2) Sin[x], {x, 0, 1}, WorkingPrecision -> 100]
RealDigits[t] (* A196829 *)
t = x /. FindRoot[1 == 6 (1 + x^2) Sin[x], {x, 0, 1}, WorkingPrecision -> 100]
RealDigits[t] (* A196830 *)
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Clark Kimberling, Oct 07 2011
STATUS
approved