21/02/22 07:52:30.16 pnUlqGOL.net
a1+a2+a3=M
a1×a2×a3=N
が自然数解(0<a1<a2<a3)を3組(以上)持つような最小のMを求めよ
calc <- function(){
n=3
nmax=10000
M=N=NULL
for(a in 1:nmax){
for(b in 1:a){
for(c in 1:b){
M=c(M,a+b+c)
N=c(N,a*b*c)
if(max(table(M))==n & max(table(N))==n) return(list(M,N))
}
}
}
}
calc()
朝飯前に計算が終わらん。