r^{-l}LegendreP[l,1,Cos[theta]]*|Sin[theta]|