st=StudentTDistribution[n];
PDF[st,x]

Manipulate[Plot3D[Beta[a,b],{a,-n,n},{b,-n,n}],{n,1,5}]