スミス数 合成数で、その素因数の数字の和がもとの数の数字の和に等しい数f = function(n) { library(matlab) # 素数判定関数 isprime, 素因数分解関数 factors if (isprime(n) == 0) { a = sum(as.integer(unlist(strsplit(as.character(n), "")))) b = sum…