高校数学の質問スレ（医者・東大卒専用） Part438 (991ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

227(1): 2024/09/28(土)08:42 ID:XCswu5aK(1) AAS
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)

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.025s