49385746

49385746 ist wirklich ein doofe Zahl: sie besteht aus nur 3 Primfaktoren - 2, 113 und 218521.

my @p = (2,3,5,7);
my @q;
my $x = 49385746;
while ($p[$#p] <= sqrt($x))
{

for ($i = 0 ; $i <= $#p ; $i++)
{
if ($x % $p[$i] == 0) {
push @q, $p[$i];
$x = $x / $p[$i];
$i = -1;
}
}
push @p, $p[$#p] + 2;
if ($p[$#p] % 5 == 0) {
$p[$#p] += 2;
}
}

print join(»\t«, (@q,$x));