我来帮你实现这个逻辑！我们一步步拆解需求，写出对应的R代码，同时解释每部分的作用：

首先要完成几个核心步骤：保留你原有的除数生成函数、编写辅助函数找最近可整除元素、为每个除数构建层级链并求和、过滤质数情况后取最大值。

# 你原有的除数生成函数
divisors <- function(x) { 
  y <- seq_len(ceiling(x / 2)) 
  y[x %% y == 0] 
}

# 辅助函数：在候选列表中找到能整除目标数的最近（最靠右）元素
find_closest_divisor <- function(num, candidates) {
  # 从后往前遍历候选列表，确保找到的是最近的符合条件的元素
  for (c in rev(candidates)) {
    if (num %% c == 0) {
      return(c)
    }
  }
  return(NULL) # 理论上不会触发，因为1一定在候选列表中
}

# 计算单个除数的层级链总和
calculate_chain_sum <- function(num, divisor_list) {
  # 定位当前数在除数列表中的位置
  pos <- which(divisor_list == num)
  # 如果是1，直接返回1（我们不会处理1）
  if (pos == 1) return(1)
  
  current_num <- num
  total_sum <- current_num
  
  while(TRUE) {
    # 获取当前数前面的所有除数作为候选
    candidates <- divisor_list[1:(pos - 1)]
    # 找到最近的可整除元素
    next_div <- find_closest_divisor(current_num, candidates)
    
    if (is.null(next_div)) break
    # 累加到总和
    total_sum <- total_sum + next_div
    # 更新当前数和位置，继续向上找层级
    current_num <- next_div
    pos <- which(divisor_list == current_num)
    
    # 到1就停止循环
    if (pos == 1) break
  }
  
  return(total_sum)
}

# 主函数：计算最大层级链和，自动忽略质数
max_divisor_chain_sum <- function(x) {
  div_list <- divisors(x)
  
  # 质数的除数列表只有1，直接忽略处理
  if (length(div_list) <= 1) {
    message("该数是质数，无需处理")
    return(NULL)
  }
  
  # 从除数列表末尾往前遍历（跳过第一个元素1）
  target_elements <- rev(div_list[-1])
  # 批量计算每个元素的层级链和
  chain_sums <- sapply(target_elements, function(el) {
    calculate_chain_sum(el, div_list)
  })
  
  # 返回最大的求和结果
  return(max(chain_sums))
}

测试你的示例 #

调用函数测试99的情况，完全符合预期：

max_divisor_chain_sum(99)
# [1] 45

代码细节解释 #

1. find_closest_divisor函数：从候选列表末尾往前遍历，确保找到的是除数列表中最靠近当前数的可整除元素，符合你要求的"最近"逻辑。
2. calculate_chain_sum函数：从当前数出发，不断向上找层级链，直到遇到1为止，同时累加所有层级的数值得到总和。
3. max_divisor_chain_sum函数：作为入口，先判断输入是否为质数，再遍历需要处理的除数（从后往前），最后返回所有链和中的最大值。

额外测试案例 #

比如测试12：

max_divisor_chain_sum(12)
# [1] 10

对应的层级链是6 → 3 → 1，求和6+3+1=10，是所有链中的最大值。

内容的提问来源于stack exchange，提问作者Chennai Cheetah