a,b,cは100以下の相異なる正の整数でa<b<cとする。
4つの整数a+b-c,b+c-a,c+a-b,a+b+cのすべてが素数となるような組合せは何個あるか数えよ。

rm(list=ls())
library(numbers)
n=100
ans=NULL
for(a in 1:(n-2)){
for(b in (a+1):(n-1)){
for(c in (b+1):n){
x= a+b-c
y= b+c-a
z= c+a-b
if(x>0 & y>0 & z>0){
if(isPrime(x) & isPrime(y) & isPrime(z)){
ans=rbind(ans,c(a,b,c,x,y,z))
}
}
}
}
}
ans
colnames(ans)=c('a','b','c','a+b-c','b+c-a','c+a-b')
head(ans)
tail(ans)
abc=ans[,1:3]
xyz=ans[,4:6]
abc[rowSums(abc)==max(rowSums(abc)),]
abc[rowSums(abc)==min(rowSums(abc)),]

ans4=abc[isPrime(rowSums(abc)),]
head(ans4)
tail(ans4)