Log[y/Cos[y]]+y Tan[y],y=Im[LambertW[3.0,1.0 i e^(-2.3)]]