编写R语言函数 找出1000 以内所有恰好有且只有两组不同质数如果两个质数相等则不符合条件相加得到的偶数注意最后输出的结果要包括偶数本身以及对应的两个相加的质数

prime_sum <- function(n) { primes <- c() for (i in 2:n) { if (all(i %% primes != 0)) { primes <- c(primes, i) } } even_nums <- seq(0, n, by = 2) result <- list() for (even_num in even_nums) { for (i in 1:length(primes)) { for (j in (i+1):length(primes)) { if (primes[i] + primes[j] == even_num && primes[i] != primes[j]) { result[[even_num]] <- c(primes[i], primes[j]) } } } } return(result) }

prime_sum(1000)