N[-D[e^(-j/(x+k)),{x,5}]+kroneckerdelta(r)-j (x+k)^(-r-1) factorialpower(-1,r) 1F1(r+1,2,-j/(x+k)),5],r=5,j=eulergamma,k=khinchin,x=1/e