OFFSET
1,1
EXAMPLE
x=7.25663293662839986431355610086695712919471700...
MATHEMATICA
Plot[{1/x, 2/x, 3/x, 4/x, Sin[x]}, {x, 0, 4 Pi}]
t = x /. FindRoot[1/x == Sin[x], {x, 1, 1.2}, WorkingPrecision -> 100]
RealDigits[t] (* A133866 *)
t = x /. FindRoot[2/x == Sin[x], {x, 6, 7}, WorkingPrecision -> 100]
RealDigits[t] (* A196760 *)
t = x /. FindRoot[3/x == Sin[x], {x, 6, 7}, WorkingPrecision -> 100]
RealDigits[t] (* A196761 *)
t = x /. FindRoot[4/x == Sin[x], {x, 6, 7}, WorkingPrecision -> 100]
RealDigits[t] (* A196762 *)
t = x /. FindRoot[5/x == Sin[x], {x, 6, 7}, WorkingPrecision -> 100]
RealDigits[t] (* A196763 *)
t = x /. FindRoot[6/x == Sin[x], {x, 6, 7}, WorkingPrecision -> 100]
RealDigits[t] (* A196764 *)
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Clark Kimberling, Oct 06 2011
STATUS
approved