Project Euler Problem 3

Project Euler R

The prime factors of 13195 are 5, 7, 13 and 29.

What is the largest prime factor of the number 600851475143 ?

この問題，難しくてなかなか良い方法が思いつかなかったので，とりあえず頭から割っていくことに…．

x <- 600851475143
p <- 1
for (i in 2:10000){
  if (x%%i == 0){
    p <- c(p,i)
    x <- x/i
    }
  }
p[length(p)]
6857

ここまでヘボいと，プログラムではなくただの計算な件について．いや，他に思いつかんかった．死んでくれオレ．しかも10000とか勝手に設定しているところがアドホックすぎる…．