A100547 - OEIS

%I #6 Aug 19 2012 02:58:24

%S 9,9,9,9,9,3,3,3,3,7,0,3,8,4,4,4,4,4,7,2,8,6,8,6,8,4,5,7,8,8,7,8,0,6,

%T 0,9,0,1,2,8,0,8,6,0,1,6,4,9,5,9,3,8,2,2,0,1,4,3,7,7,8,1,4,6,6,6,8,9,

%U 9,9,9,7,4,4,5,1,3,9,8,3,4,8,5,1,4,3,5,8,0,7,1,7,6,1,4,6,8,6,8,8,9,8,6,8,0

%N Decimal expansion of -cos(2^19*r) where r ~ 0.739085 is the root of cos x = x (A003957).

%e .999993333703844444728686845788780609012808601649593822014377814666899997...

%t r = FindRoot[Cos[x] == x, {x, 1.}, WorkingPrecision -> 1000][[1, 2]];

%t RealDigits[Cos[2^19 r]][[1]] (* _Ben Branman_, Aug 19 2012 *)

%Y Cf. A003957.

%K cons,nonn

%O 0,1

%A _Gerald McGarvey_, Jan 01 2005