OFFSET
1,1
COMMENTS
EXAMPLE
x=3.521337829571715698691988564454917977309181394...
MATHEMATICA
b = Pi/2; c = Pi/3; f[x_] := Cos[x]
t = x /. FindRoot[f[b*x] == f[c*x]^2, {x, 3.5, 3.53}, WorkingPrecision -> 200]
Plot[{f[b*x], f[c*x]^2}, {x, 0, 4}]
RealDigits[ 6*ArcCos[ Root[ -1 - 4# + 4#^3 & , 2]]/Pi, 10, 99] // First (* Jean-François Alcover, Feb 19 2013 *)
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Clark Kimberling, Oct 16 2011
STATUS
approved