%I A125578
%S A125578 8,2,4,1,3,2,3,1,2,3,0,2,5,2,2,4,2,2,9,6,0,9,5,6,7,8,5,7,7,1,9,9,1,1,
%T A125578 0,8,1,4,2,6,8,9,8,6,6,7,4,8,2,8,9,9,9,1,7,3,2,6,1,6,6,8,7,3,9,0,6,6,
%U A125578 6,2,7,0,9,6,9,4,1,3,2,7,0,1,5,6,6,1,3,0,0,3,5,5,0,2,1,1,3,5,5,7,2,9
%N A125578 Decimal expansion of positive root of x^2 = cos(x).
%C A125578 Both roots have equal magnitude: x = +-0.824132312302...
%F A125578 x^2 = cos(x)
%e A125578 0.824132312302522422960956785771991108142689866748289991732...
%t A125578 RealDigits[FindRoot[Cos[x] == x^2, {x, {.7, 1}}, WorkingPrecision -> 
               120][[1, 2, 1]], 10, 111][[1]]
%Y A125578 Cf. A003957, A124597.
%Y A125578 Sequence in context: A160105 A167162 A096257 this_sequence A083729 A019775 
               A138499
%Y A125578 Adjacent sequences: A125575 A125576 A125577 this_sequence A125579 A125580 
               A125581
%K A125578 cons,nonn
%O A125578 0,1
%A A125578 Denton J. Dailey (djd1497(AT)aol.com), Jan 03 2007