ReplaceAll[x/Sqrt[1 - (2 x^2)/3] - Tan[x], {x->0.00016129}]