FourierTransform[1/Sqrt[t] Exp[I t], t, w]