Anonymous

#!/usr/bin/perl
use strict;
use warnings;

my $number = 317584931803;

my $factor = 2;
my $prime = 1;

while($factor * $factor < $number) {
	$number /= $factor while($number % $factor == 0);
	$factor++;
}

print $number,"\n";