GraphicsGrid@ Partition[ Table[DiscretePlot[f[k], {k, 50}, PlotLabel -> f[k]], {f, {PrimeOmega, PrimeNu, LiouvilleLambda, MangoldtLambda}}], 2]