%I A125579
%S A125579 8,6,5,4,7,4,0,3,3,1,0,1,6,1,4,4,4,6,6,2,0,6,8,5,9,0,1,1,8,6,2,2,8,7,
%T A125579 4,7,7,9,2,9,1,1,9,3,1,8,1,8,9,3,5,5,0,0,8,8,9,2,7,9,9,1,5,8,5,5,4,4,
%U A125579 7,0,0,6,0,5,6,0,2,1,5,6,0,5,1,4,0,6,4,2,7,2,3,1,9,5,6,2,8,0,2,2,8,0
%N A125579 Decimal expansion of positive root of x^3 = cos(x).
%F A125579 x^3 = cos(x)
%e A125579 0.865474033101614446620685901186228747792911931818935...
%t A125579 RealDigits[FindRoot[Cos[x] == x^3, {x, {.7, 1}}, WorkingPrecision -> 
               120][[1, 2, 1]], 10, 111][[1]]
%Y A125579 Cf. A003957, A124597.
%Y A125579 Sequence in context: A092033 A061360 A120818 this_sequence A021540 A100199 
               A161883
%Y A125579 Adjacent sequences: A125576 A125577 A125578 this_sequence A125580 A125581 
               A125582
%K A125579 cons,nonn
%O A125579 0,1
%A A125579 Denton J. Dailey (djd1497(AT)aol.com), Jan 03 2007