Why divide, when multiplication handles irregular strides and avoids the need for sprintfs?

sub DIRICHLET
{
  my ($POWERS,$PRECISION) = @_;

  print "\n\n\t Power \t Dirichlet's zeta result  (harmonic series dep
+th = $SERIES_DEPTH)\n\n";

  my $start = 2;
  my $i = 0;
  while ( (my $POWER = $start + $PRECISION*$i++) < $POWERS+1) {
    print "\t $POWER \t " . &HARMONIC_SERIES ($POWER) . " \n";
  }
} # DIRICHLET #
[download]