在R中编写一个函数来查找完全数

findPerfectNumbers <- function(n) {
  perfectNumbers <- c()
  
  for (i in 1:n) {
    divisors <- c()
    
    for (j in 1:(i-1)) {
      if (i %% j == 0) {
        divisors <- c(divisors, j)
      }
    }
    
    if (sum(divisors) == i) {
      perfectNumbers <- c(perfectNumbers, i)
    }
  }
  
  return(perfectNumbers)
}

n <- 10000
perfectNumbers <- findPerfectNumbers(n)
print(perfectNumbers)