In[8]:=

f[x_, p_] := (Log[x] p)/1 ! + (Log[x]^2 p^2)/2 ! + (Log[x]^3 p^3)/3 ! + (Log[x]^4 p^4)/4 ! + (Log[x]^5 p^5)/5 !

In[9]:=

f[2.0, 4.0]

Out[9]=

13.996073193881136`

f2[x_, p_, n_] := 1.0 + Underoverscript[∑, i = 1, arg3] (Log[x]^i p^i)/i !

In[14]:=

f2[2.0, 4.0, 30]

Out[14]=

15.999999999999996`


Converted by Mathematica  (October 1, 2002)