Create euler_005.R