底辺私立医大を卒業した医者って頭悪いよね？ Part30

274 ：卵の名無しさん ：2024/03/02(土) 09:21:40.35 ID:9Gve+W9f0.net

N=100
ans=NULL
for(a in 6:N){
for(b in 5:(a-1)){
for(c in 4:(b-1)){
for(d in 3:(c-1)){
for(e in 2:(d-1)){
if(is.wholenumber((a^3+b^3+c^3+d^3+e^3)^(1/3))){
n=round((a^3+b^3+c^3+d^3+e^3)^(1/3))
ans=rbind(ans,c(a,b,c,d,e,n))
}
}
}
}
}
}
ans
y=ans[,6]
table(y)
hist(y)
hist(y,breaks = 158)
Y=table(y)
summary(y)