while ($POWER < $POWERS+1)
  {
    print "\t $POWER \t " . &HARMONIC_SERIES ($POWER) . " \n";
    $POWER += $PRECISION;          # problem here at 5.9?
  } # while ($POWER <= $POWERS) #  


##</code><code>##


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


##</code><code>##


	 Power 	 Dirichlet's zeta result  (harmonic series depth = 10000000)

	 2 	 1.64493396684722 
	 2.1 	 1.56021651535977 
	 2.2 	 1.49054325318119 
	 2.3 	 1.43241779869829 
	 2.4 	 1.38334285854823 
	 2.5 	 1.34148725710385 
	 2.6 	 1.30547780899489 
	 2.7 	 1.27426464440048 
	 2.8 	 1.24703142229228 
	 2.9 	 1.22313389528938 
	 3 	 1.20205690315031 
	 3.1 	 1.18338365210598 
	 3.2 	 1.16677337098058 
	 3.3 	 1.15194479471816 
	 3.4 	 1.13866377572624 
	 3.5 	 1.12673386731579 
	 3.6 	 1.11598907912243 
	 3.7 	 1.10628824146401 
	 3.8 	 1.09751057645852 
	 3.9 	 1.08955218466995 
	 4 	 1.08232323371086 
	 4.1 	 1.07574569034329 
	 4.2 	 1.06975147723364 
	 4.3 	 1.0642809643257 
	 4.4 	 1.05928172597973 
	 4.5 	 1.05470751076137 
	 4.6 	 1.0505173825665 
	 4.7 	 1.04667500069907 
	 4.8 	 1.04314801333513 
	 4.9 	 1.03990754404931 
	 5 	 1.03692775514334 
	 5.1 	 1.03418547468746 
	 5.2 	 1.03165987667789 
	 5.3 	 1.0293322056832 
	 5.4 	 1.02718553892034 
	 5.5 	 1.02520457995467 
	 5.6 	 1.02337547922702 
	 5.7 	 1.02168567742621 
	 5.8 	 1.02012376838834 
	 5.9 	 1.01867937874473 
	 6 	 1.01734306198444 
	 6.1 	 1.0161062049622 
	 6.2 	 1.01496094518522 
	 6.3 	 1.0139000974628 
	 6.4 	 1.01291708871218 
	 6.5 	 1.01200589988852 
	 6.6 	 1.01116101415427 
	 6.7 	 1.01037737052638 
	 6.8 	 1.00965032234471 
	 6.9 	 1.00897559999333