$/=$";($n,$s,$k)=<>; $s-=$k*$n*($n-1)/2; if($s>0){ $d[$s]=1; for$i(0..$n-1){ for$a(0..$s){ $j=$a; for$b(0..($s-$a)/($n-$i)){ $e[$a]=($e[$a]+$d[$j])%(1e9+7); $j+=$n-$i; } } @d=@e;@e=(); } } print$d[0]+0;