雑多な記事 library(schoolmath) N<-6 p.f<-prime.factor(N) p.f N-cumprod(p.f) # 0になるはず #tableにはrow.namesに文字列でカテゴリ名が入るようなので a<-table(p.f) as.numeric(row.names(a)) # 積の初期値を１とする ans<-1 for(i in 1:length(a)){ #…