Mathematica Numerical Differentiation Using Newtons Formula