How do I work with Root objects? Base on your code, I solve the equation $\tan 2x \cdot \tan 7x = 1$. I input
s = Solve[Tan[2*x]*Tan[7*x] == 1, x, InverseFunctions -> True]
and Select[s[[All, 1, 2]], Element[#, Reals] &]
But the equation has many other real roots. Please help me.