Fold[log(#2,e+#1)&, x, Reverse[Range[2,infinity]]]