Функция для делителя числа

Question

Мне нужна функция, которая дает мне сумму делителей числа с учетом этого числа и 1 как делителей этого числа.

Я не вижу ничего плохого в коде

В теории для этого конкретного примера ответом должно быть 42 на 20, но я получаю что-то еще.

Answer 1

Этот код должен быть быстрее;он также оценивает делители и выводит сумму делителей в одной функции:

sum_divisors <- function(dividend){
   # create a vector from 1 until half of the dividend
   x <- 1:floor(dividend/2)
   # capture the divisors
   divisors_vector <- x[dividend%%x == 0]
   # sum the divisors we found, and the dividend itself
   divisors_sum <- sum(divisors_vector) + dividend
   return(divisors_sum)
}