for my $n (1..30) {
  my $s = 0;
  for my $k (1..$n-1) {
    $s += 1/1 * $k / ($n-$k);
  }
  print "n = $n, s = $s\n";
}