Plot[Exp[-x]*BesselI[{1,10},x],{x,0,1000}]