Plot[LegendreQ[1, 0, 3, z], {z, -1, 1}]