3 または 5 の倍数 3 または 5 の倍数で、10 以下の自然数をすべてリストすると、次のようになります。 3、5、6、9。これらの倍数の合計は23です。 1000 の下の 3 または 5 のすべての倍数の合計を求めます。 Rコード multiplos <- function(numMax){ num <- seq_len(numMax-1) test <- apply(rbind(num %% 3, num %% 5), 2, min) return(sum(num[test == 0])) } multiplos(10) > 23 multiplos(1000) > 233168 multiplos <- function(numMax, mult){ num <- seq_len(numMax-1) vecMult <- lapply(mult , function(div) num %% div) matMult <- do.call(rbind, vecMult) test <- apply(matMult, 2, min) return(sum(num[test == 0])) } multiplos(10, c(3,5)) > 23 multiplos(1000, c(3,5)) > 233168 フィボナッチ数列でも フィボナッチ数列の新しい各項は、前の 2 つの項を加算することによって生成されます。から始まる 1 と 2、最初の 10。条件は次のとおりです。 $$1,2,3,5,8,13, 21, 34, 55, 89, \dots$$ 値が 400 万を超えないフィボナッチ数列の項を考慮する場合は、偶数項の合計を求めます。