Euler 12

source("solutions/helpers.R")
test <- FALSE
n <- 1
while(!test){
  n <- n + 1
  test <- length(divisors(triangle(n))) > 500
  if(test){answer <- triangle(n)}
}