cp's OEIS Frontend

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

%I A100547 #6 Aug 19 2012 02:58:24
%S A100547 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 A100547 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 A100547 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 A100547 Decimal expansion of -cos(2^19*r) where r ~ 0.739085 is the root of cos x = x (A003957).
%e A100547 .999993333703844444728686845788780609012808601649593822014377814666899997...
%t A100547 r = FindRoot[Cos[x] == x, {x, 1.}, WorkingPrecision -> 1000][[1, 2]];
%t A100547 RealDigits[Cos[2^19 r]][[1]] (* _Ben Branman_, Aug 19 2012 *)
%Y A100547 Cf. A003957.
%K A100547 cons,nonn
%O A100547 0,1
%A A100547 _Gerald McGarvey_, Jan 01 2005