Create euler_021_1.R