Select Code to Download

  use Math::Pari qw/ factorint /;
  my $n = Math::Pari->new("988041964007");
...
    $power > 1 ? "$prime ^ $power" : $prime
  } 0 .. $count), "\n";
7 * 11087 * 12731023