看谁的方法快，求600851475143的质因子

如何自己编程求600851475143的质因子，自已写了一个，但电脑直接崩溃。建议不使用gmp::factorize或其他R中封装的函数。

prime <- function(x)
{
    i <- 2
    result <- NULL
    thrs <- round(sqrt(x)) + 1
    while(i < thrs)
    {
        if(x %% i == 0)
        {
            result <- c(result, i)
            x <- x / i
            i <- 2
            thrs <- round(sqrt(x)) + 1
        } else
        {
            i <- i + 1
        }
    }
    if(i == thrs)
    {
        result <- c(result, x)
    }
    result
}
prime(600851475143)

复杂度应该是O(n^0.5)