Limit[Divide[Sin[Sqrt[X]-1],Log[X]],X->1]