Create euler_004.R