Plot[BesselK[1, z], {z, 0, 20}]