power[base, power] := 1.0 + Underoverscript[∑, i = 1, arg3] (Log[base]^i power^i)/i !


Converted by Mathematica  (October 1, 2002)