#!/usr/bin/perl -w

use Data::Dumper;

use PIC::Vis::Algebra::Prime::50Million;
my $million50 = PIC::Vis::Algebra::Prime::50Million->new();

print Dumper($million50);

my @list;
foreach my $i (0 .. 49) {
  my $prime = $million50->GetIthPrime
    (
     I => ($i * 1000000) + 1,
    );
  print "$prime\n";
  push @list, $prime;
}
print "\n\n";
print join(',',@list);
print "\n\n";