0091132人目の素数さん
2021/02/28(日) 17:56:12.20ID:0OxPa3B4×27720以下で総当たりすると見つからないので277720が最小。
〇27720以下で総当たりすると見つからないので27720が最小。
解説なしのおまけ(Rのコード)
library(numbers)
f <- function(nmax=27720,showALL=FALSE){
y=divisors(nmax)
y=y[y>12]
re=NULL
for(i in 1:length(y)){
if((2*y[i]) %in% y){
i2=which(y==2*y[i])
if((i2-i)==12){
re=y[i:i2]
cat(re,':','LCM =',mLCM(re),'\n')
if(!showALL) break
}
}
}
invisible(re)
}
vf=Vectorize(f)
DEL=vf(13:27720)
DEL=vf(27720:50000)