Create Euler4.R

My solution to the 4th Euler Problem.