Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%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