maxn = 6;
Powers = Table[n, {n, 1, maxn}]
EApprox = Table[(1+1/(10^Powers[[n]]))^(10^Powers[[n]]),{n, 1, maxn}];
N[EApprox]
