Múltiplos de 3 ou 5 Se listarmos todos os números naturais abaixo de 10 que são múltiplos de 3 ou 5, obtemos 3, 5, 6 e 9. A soma desses múltiplos é 23. Encontre a soma de todos os múltiplos de 3 ou 5 abaixo de 1000. Código 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 Números pares de Fibonacci Cada novo termo na sequência de Fibonacci é gerado pela adição dos dois termos anteriores. Começando com 1 e 2, o primeiro 10. Os termos serão: $$1,2,3,5,8,13, 21, 34, 55, 89, \dots$$ Ao considerar os termos na sequência de Fibonacci cujos valores não excedem quatro milhões, encontre a soma dos termos pares.