R语言关于哥德巴赫猜想

Question

对任一大于2的偶数求出一对素数，它们之和等于该偶数，把10000以内所有大于2偶数的结果保存在一个列表对象(list)之中,如

$4

[1] 2 2

$6

[1] 3 3

$8

[1] 3 5

Answer 1

你好，首先要安装一个包包

install.packages("pracma")

然后按照要求编写代码：

library(pracma)
p<-primes(20000)
a<-c()
for(i in seq(from = 4, to = 20000, by = 2)){
  for(j in p){
    if(j<=i/2 && isprime(i-j) ){
      pairs<-c(j,i-j) #pairs就是你需要的
      a<-append(a, pairs)
    }
  }
}
print(a)