plot[y=C(n,3)*5^(n-3)/6^(n+1),{n,1,99}]