Create euler_013.R