N[E, 12]
1 + (∑_(n = 1)^∞) (1/(n!)) 
          (1^n)
N[1 + (∑_(n = 1)^∞) (1/(n!)) (1^n), 
      12]
Plot[(E^x), {x, -1, 2}, 
      PlotRange -> {-0.5, 8}]

N[π, 12]
N[(∑_(n = 1)^∞) (1/(n^5)), 
      12]
Rationalize[
      N[(((∑_(n = 1)^∞) (1/(n^5)))/(π^5)), 12], 
      (10^(-20))]

Table[Zeta[s], {s, 1, 6}]

γ=N[Table[(∑_(i = 1)^x)((1/i))-Log[x],{x, 1000, 10000, 1000}]]
N[Limit[(∑_(i = 1)^x)((1/i))-Log[x],x -> ∞],12]

p1:=Plot[{Log[x]},{x, 0, 100},DisplayFunction->Identity]

p := 
      Table[(∑_(i = 1)^x)((1/i)), {x, 1, 100, 
          1}]
p2:=ListPlot[p,DisplayFunction->Identity]
Show[p1,p2,PlotRange->{{-5,105},{-1, 5.8}},DisplayFunction -> $DisplayFunction]

N[EulerGamma, 12]

Plot[(∑_(i = 1)^x)((1/i))-Log[x],{x, 1, 1000}]

γ1:=N[Table[(∑_(i = 1)^x)((1/i))-Log[x],{x, 1, 300, 1}]]
g1:=ListPlot[γ1,DisplayFunction->Identity]
Show[g1,PlotRange->{{0,300},{-0.1, 1}},DisplayFunction -> $DisplayFunction]