FindRoot[215 + a == a Cosh[265/a],{a,200}]