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