A125579 - OEIS

%I #5 Apr 16 2014 08:57:12

%S 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 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 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 Decimal expansion of positive root of x^3 = cos(x).

%F x^3 = cos(x)

%e 0.865474033101614446620685901186228747792911931818935...

%t RealDigits[FindRoot[Cos[x] == x^3, {x, {.7, 1}}, WorkingPrecision -> 120][[1, 2, 1]], 10, 111][[1]]

%o (PARI) solve(x=0,1,cos(x)-x^3) \\ _Charles R Greathouse IV_, Apr 16 2014

%Y Cf. A003957, A124597.

%K cons,nonn

%O 0,1

%A Denton J. Dailey (djd1497(AT)aol.com), Jan 03 2007