OFFSET
0,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..10000
EXAMPLE
0.7194212963274103157169229700373320490851010...
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 *)
PROG
(PARI) a=1; c=1; solve(x=0.5, 1, a*x^2 + c - 1/sin(x)) \\ G. C. Greubel, Aug 21 2018
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Clark Kimberling, Oct 07 2011
STATUS
approved