Fold[log(#2,e+#1)&, 0.0, Reverse[Range[2,10]]]