Create Problem 1.R

Solution to Project Euler, Problem 1.