my $START = 2;
  my $EACH = 0;
  while ((my $POWER = $START + $PRECISION*$EACH++) < $POWERS+1)
  {
    print "\t $POWER \t " . &HARMONIC_SERIES ($POWER) . " \n";
  }