Create euler_006.R