login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Binary expansion of root of cos x = x.
1

%I #6 Mar 30 2012 19:00:47

%S 1,0,1,1,1,1,0,1,0,0,1,1,0,1,0,0,1,0,1,0,1,1,1,0,1,1,1,0,1,1,0,0,0,0,

%T 0,1,1,1,1,0,0,1,1,1,0,0,0,1,0,1,1,0,1,1,0,1,1,1,0,0,1,0,1,0,1,1,0,1,

%U 0,1,0,1,0,0,0,1,1,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,0,1,0,0,1,0,0,0,0

%N Binary expansion of root of cos x = x.

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

%Y Cf. A003957.

%K base,cons,nonn

%O 1,1

%A _Ben Branman_, Sep 25 2008