FindRoot[e^x/ln(x)+3,{x,0.1}],N[sum[1/n! e^(n/(-3)) BellB(n-1,n/(-3)),{n,1,80}]]