FindRoot[Sqrt[7/2]/Sqrt[t] - Sqrt[7] Sec[t] Tan[t], {t, 1}]