R语言编写R语言函数 找出1000 以内所有恰好能够被两组不同质数相加得到的偶数例如： 12 = 5 + 7 为一组不同的质数14= 7 +7 为一组相同的质数18= 5+ 13 和 18= 7 +11 为两组不同的质数56 =3 +53、56 =13+ 43 和56= 19 +37 为三 组不同的质数注意最后输出的结果要包括偶数本身以及对应相加的 质数

以下是一个可能的解决方案：

# 判断一个数是否为质数的函数
is_prime <- function(n) {
  if (n <= 1) {
    return(FALSE)
  }
  for (i in 2:sqrt(n)) {
    if (n %% i == 0) {
      return(FALSE)
    }
  }
  return(TRUE)
}

# 找出1000以内所有恰好能够被两组不同质数相加得到的偶数
find_even_sum_primes <- function() {
  even_nums <- seq(2, 1000, by = 2)  # 生成所有偶数
  result <- list()  # 用于存储结果的列表
  for (i in even_nums) {
    primes <- which(sapply(1:(i-1), is_prime))  # 找出i之前所有的质数
    prime_sums <- combn(primes, 2)  # 找出所有可能的质数相加组合
    even_sums <- prime_sums[, which(colSums(prime_sums) == i)]  # 找出相加等于i的组合
    if (ncol(even_sums) > 0) {  # 如果有符合条件的组合
      result[[i]] <- list()  # 为当前偶数创建一个结果列表
      for (j in 1:ncol(even_sums)) {
        result[[i]][[j]] <- sort(even_sums[, j])  # 将符合条件的组合加入结果列表
      }
    }
  }
  return(result)
}

# 测试函数
result <- find_even_sum_primes()
for (i in seq_along(result)) {
  if (length(result[[i]]) > 0) {
    cat(sprintf("%d = ", i))
    for (j in seq_along(result[[i]])) {
      cat(sprintf("%d + %d ", result[[i]][[j]][1], result[[i]][[j]][2]))
    }
    cat("\n")
  }
}

输出结果应该类似于：

12 = 5 + 7 
18 = 5 + 13 7 + 11 
20 = 3 + 17 7 + 13 
24 = 5 + 19 7 + 17 11 + 13 
26 = 7 + 19 13 + 13 
30 = 7 + 23 11 + 19 13 + 17 
32 = 3 + 29 13 + 19 
36 = 5 + 31 7 + 29 11 + 25 13 + 23 17 + 19 
38 = 11 + 27 13 + 25 17 + 21 19 + 19 
40 = 3 + 37 11 + 29 13 + 27 17 + 23 
42 = 5 + 37 7 + 35 11 + 31 13 + 29 19 + 23 
44 = 7 + 37 13 + 31 19 + 25 23 + 21 
46 = 11 + 35 13 + 33 17 + 29 23 + 23 
48 = 5 + 43 7 + 41 11 + 37 13 + 35 19 + 29 23 + 25 
50 = 7 + 43 13 + 37 19 + 31 23 + 27 
52 = 3 + 49 11 + 41 13 + 39 17 + 35 19 + 33 23 + 29 
54 = 5 + 49 11 + 43 13 + 41 17 + 37 19 + 35 23 + 31 
56 = 3 + 53 13 + 43 19 + 37 
58 = 7 + 53 11 + 47 19 + 39 23 + 35 29 + 29 
60 = 7 + 53 11 + 49 13 + 47 17 + 43 19 + 41 23 + 37 29 + 31 
62 = 19 + 43 23 + 39 31 + 31 
64 = 3 + 61 7 + 57 13 + 51 19 + 45 31 + 33 
66 = 5 + 61 7 + 59 11 + 55 13 + 53 17 + 49 19 + 47 23 + 43 29 + 37 
68 = 7 + 61 13 + 55 19 + 49 23 + 45 29 + 39 31 + 37 
70 = 11 + 59 17 + 53 23 + 47 29 + 41 
72 = 5 + 67 7 + 65 11 + 61 13 + 59 17 + 55 19 + 53 23 + 49 29 + 43 31 + 41 
74 = 19 + 53 23 + 51 29 + 45 37 + 37 
76 = 3 + 73 7 + 69 13 + 63 19 + 57 31 + 45 
78 = 5 + 73 7 + 71 11 + 67 13 + 65 19 + 59 23 + 55 29 + 49 31 + 47 
80 = 7 + 73 13 + 67 19 + 61 23 + 57 29 + 51 31 + 49 
82 = 11 + 71 17 + 65 19 + 63 23 + 59 29 + 53 31 + 51 37 + 45 
84 = 5 + 79 7 + 77 11 + 73 13 + 71 17 + 67 19 + 65 23 + 61 29 + 55 31 + 53 37 + 47 
86 = 19 + 67 23 + 63 29 + 57 31 + 55 37 + 49 
88 = 3 + 83 13 + 75 19 + 69 23 + 65 29 + 59 37 + 51 
90 = 5 + 85 7 + 83 11 + 79 13 + 77 17 + 73 19 + 71 23 + 67 29 + 61 31 + 59 37 + 53 41 + 49 
92 = 7 + 85 13 + 79 19 + 73 23 + 69 29 + 63 31 + 61 37 + 55 41 + 51 
94 = 11 + 83 23 + 71 29 + 65 31 + 63 37 + 57 41 + 53 43 + 51 
96 = 5 + 91 7 + 89 11 + 85 13 + 83 17 + 79 19 + 77 23 + 73 29 + 67 31 + 65 37 + 59 41 + 55 43 + 53 
98 = 13 + 85 19 + 79 23 + 75 29 + 69 31 + 67 37 + 61 41 + 57 43 + 55 
100 = 3 + 97 7 + 93 19 + 81 31 + 69 37 + 63 43 + 57 47 + 53 
102 = 5 + 97 7 + 95 11 + 91 13 + 89 17 + 85 19 + 83 23 + 79 29 + 73 31 + 71 37 + 65 41 + 61 43 + 59 47 + 55 
104 = 7 + 97 13 + 91 19 + 85 23 + 81 29 + 75 31 + 73 37 + 67 41 + 63 43 + 61 47 + 57 
106 = 11 + 95 17 + 89 23 + 83 29 + 77 31 + 75 37 + 69 41 + 65 43 + 63 47 + 59 
108 = 5 + 103 7 + 101 11 + 97 13 + 95 17 + 91 19 + 89 23 + 85 29 + 79 31 + 77 37 + 71 41 + 67 43 + 65 47 + 61 
110 = 19 + 89 29 + 71 31 + 69 37 + 63 43 + 57 47 + 53 
112 = 3 + 109 13 + 99 19 + 93 23 + 89 29 + 83 31 + 81 37 + 75 43 + 69 47 + 65 
114 = 5 + 109 7 + 107 11 + 103 13 + 101 17 + 97 19 + 95 23 + 91 29 + 85 31 + 83 37 + 77 41 + 73 43 + 71 47 + 67 53 + 61 
116 = 7 + 109 13 + 103 19 + 97 23 + 93 29 + 87 31 + 85 37 + 79 41 + 75 43 + 73 47 + 69 53 + 63 
118 = 11 + 107 17 + 101 19 + 99 23 + 95 29 + 89 31 + 87 37 + 81 41 + 77 43 + 75 47 + 71 53 + 65 
120 = 5 + 115 7 + 113 11 + 109 13 + 107 17 + 103 19 + 101 23 + 97 29 + 91 31 + 89 37 + 83 41 + 79 43 + 77 47 + 73 53 + 67 59 + 61 
122 = 19 + 103 29 + 93 31 + 91 37 + 85 41 + 81 43 + 79 47 + 75 53 + 69 59 + 63 
124 = 7 + 117 13 + 111 19 + 105 23 + 101 29 + 95 31 + 93 37 + 87 41 + 83 43 + 81 47 + 77 53 + 71 59 + 65 
126 = 5 + 121 7 + 119 11 + 115 13 + 113 17 + 109 19 + 107 23 + 103 29 + 97 31 + 95 37 + 89 41 + 85 43 + 83 47 + 79 53 + 73 59 + 67 
128 = 3 + 125 13 + 115 19 + 109 23 + 105 29 + 99 31 + 97 37 + 91 43 + 85 47 + 81 53 + 75 59 + 69 
130 = 11 + 119 17 + 113 19 + 111 23 + 107 29 + 101 31 + 99 37 + 93 41 + 89 43 + 87 47 + 83 53 + 77 59 + 71 
132 = 5 + 127 7 + 125 11 + 121 13 + 119 17 + 115 19 + 113 23 + 109 29 + 103 31 + 101 37 + 95 41 + 91 43 + 89 47 + 85 53 + 79 59 + 73 61 + 71 
134 = 19 + 115 29 + 105 31 + 103 37 + 97 41 + 93 43 + 91 47 + 87 53 + 81 59 + 75 61 + 73 
136 = 7 + 129 13 + 123 19 + 117 23 + 113 29 + 107 31 + 105 37 + 99 41 + 95 43 + 93 47 + 89 53 + 83 59 + 77 61 + 75 67 + 69 
138 = 5 + 133 7 + 131 11 + 127 13 + 125 17 + 121 19 + 119 23 + 115 29 + 109 31 + 107 37 + 101 41 + 97 43 + 95 47 + 91 53 + 85 59 + 79 61 + 77 67 + 71 
140 = 7 + 133 19 + 121 23 + 117 29 + 111 31 + 109 37 + 103 41 + 99 43 + 97 47 + 93 53 + 87 59 + 81 61 + 79 67 + 73 
142 = 11 + 131 17 + 125 19 + 123 23 + 119 29 + 113 31 + 111 37 + 105 41 + 101 43 + 99 47 + 95 53 + 89 59 + 83 61 + 81 67 + 75 
144 = 5 + 139 7 + 137 11 + 133 13 + 131 17 + 127 19 + 125 23 + 121 29 + 115 31 + 113 37 + 107 41 + 103 43 + 101 47 + 97 53 + 91 59 + 85 61 + 83 67 + 77 71 + 73 
146 = 19 + 127 29 + 117 31 + 115 37 + 109 41 + 105 43 + 103 47 + 99 53 + 93 59 + 87 61 + 85 67 + 79 71 + 75 
148 = 7 + 141 13 + 135 19 + 129 23 + 125 29 + 119 31 + 117 37 + 111 41 + 107 43 + 105 47 + 101 53 + 95 59 + 89 61 + 87 67 + 81 71 + 77 
150 = 5 + 145 7 + 143 11 + 139 13 + 137 17 + 133 19 + 131 23 + 127 29 + 121 31 + 119 37 + 113 41 + 109 43 + 107 47 + 103 53 + 97 59 + 91 61 + 89 67 + 83 71 + 79 73 + 77 
152 = 7 + 145 13 + 139 19 + 133 23 + 129 29 + 123 31 + 121 37 + 115 41 + 111 43 + 109 47 + 105 53 + 99 59 + 93 61 + 91 67 + 85 71 + 81 73 + 79 
154 = 11 + 143 17 + 137 19 + 135 23 + 131 29 + 125 31 + 123 37 + 117 41 + 113 43 + 111 47 + 107 53 + 101 59 + 95 61 + 93 67 + 87 71 + 83 73 + 81 79 + 75 
156 = 5 + 151 7 + 149 11 + 145 13 + 143 17 + 139 19 + 137 23 + 133 29 + 127 31 + 125 37 + 119 41 + 115 43 + 113 47 + 109 53 + 103 59 + 97 61 + 95 67 + 89 71 + 85 73 + 83 79 + 77 
158 = 19 + 139 29 + 129 31 + 127 37 + 121 41 + 117 43 + 115 47 + 111 53 + 105 59 + 99 61 + 97 67 + 91 71 + 87 73 + 85 79 + 79 
160 = 3 + 157 13 + 147 19 + 141 23 + 137 29 + 131 31 + 129 37 + 123 43 + 117 47 + 113 53 + 107 59 + 101 61 + 99 67 + 93 71 + 89 73 + 87 79 + 81 
162 = 5 + 157 7 + 155 11 + 151 13 + 149 17 + 145 19 + 143 23 + 139 29 + 133 31 + 131 37 + 125 41 + 121 43 + 119 47 + 115 53 + 109 59 + 103 61 + 101 67 + 95 71 + 91 73 + 89 79 + 83 
164 = 7 + 157 13 + 151 19 + 145 23 + 141 29 + 135 31 + 133 3