Search results

Solutions 1 and 2 in R Problem 1: x <- seq(1:1000) y <- x[ x%%3 == 0 | x%%5 == 0 ] # numbers divisible by 5 or 3 sum( y[ y < 1000 ] ) # sum of divisors < 1000 Solution: 233168 Problem2: fib = numeric() fib[1] = 1 fib[2] = 1 i = 2 while (fib[i] < 4000000) {...