f[n_,k_]:=Mean[Min/@Subsets[Range[n],{k}]]

Table[f[n,k], {n,10}, {k,n}]//Column