Series[Exp[x] BesselK[n,x],{x,Infinity,4}]