login
A121967
Binary expansion of root of cos x = x.
1
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, 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, 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
OFFSET
1,1
MATHEMATICA
BaseForm[FindRoot[Cos[x] == x, {x, {1}}, WorkingPrecision -> 1000], 2]
CROSSREFS
Cf. A003957.
Sequence in context: A103582 A129565 A225145 * A356310 A285430 A284368
KEYWORD
base,cons,nonn
AUTHOR
Ben Branman, Sep 25 2008
STATUS
approved