Series[BesselK[0, a*Sqrt[b^2 + r^2]],{r,0,6}]