KellyO R code for attempt at Euler 8

I was struggling to remember what each variable meant... it would have helped to name at least one of these more descriptively.