OFFSET
1,2
EXAMPLE
x=1.53487482496053595561526263491395023609151392591416076...
MATHEMATICA
Plot[{E^(-x), Cos[x], 2 Cos[x], 3 Cos[x], 4 Cos[x]}, {x, 0, Pi/2}]
t = x /. FindRoot[E^(-x) == Cos[x], {x, 1, 1.6}, WorkingPrecision -> 100];
RealDigits[t] (* A196401 *)
t = x /. FindRoot[E^(-x) == 2 Cos[x], {x, 1, 1.6}, WorkingPrecision -> 100]; RealDigits[t] (* A196402 *)
t = x /. FindRoot[E^(-x) == 3 Cos[x], {x, 1, 1.6}, WorkingPrecision -> 100]; RealDigits[t] (* A196403 *)
t = x /. FindRoot[E^(-x) == 4 Cos[x], {x, 1, 1.6}, WorkingPrecision -> 100]; RealDigits[t] (* A196404 *)
t = x /. FindRoot[E^(-x) == 5 Cos[x], {x, 1, 1.6}, WorkingPrecision -> 100]; RealDigits[t] (* A196405 *)
t = x /. FindRoot[E^(-x) == 6 Cos[x], {x, 1, 1.6}, WorkingPrecision -> 100]; RealDigits[t] (* A196406 *)
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Clark Kimberling, Oct 02 2011
STATUS
approved