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

  print "\n\n\t Power \t Dirichlet's zeta result  (harmonic series depth = $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 #