KellyO R code for attempt at Euler 8