just for fun and cool uses for Perl, here the math for the first column

  DB<29> $h = 5

  DB<30> sub A_and_B { bk($n-2,$h-2) / bk($n,$h) }

  DB<31> sub bk { my ($n,$k) = @_; fac($n)/(fac($k)*fac($n-$k)) }

  DB<32> sub fac { my ($n) =@_; my $f=1; $f*=$_ for 2..$n; $f}

  DB<33> printf ( "%i %0.3f\n", $n=$_, A_and_B ) for 6..15
6 0.667
7 0.476
8 0.357
9 0.278
10 0.222
11 0.182
12 0.152
13 0.128
14 0.110
15 0.095
[download]

remaining cols left for the interested reader. :) °

Further reading:

• Binomial Coefficient
• Stochastics
• Combinatorics

update

°) spoiler