Solve[k == Cos[k],k]