DiscretePlot[Product[1-1/(2*k),{k,1,n}]/Sqrt[2/Pi*1/(2n+1)],{n,1,100}]