[ create a new paste ] login | about

Link: http://codepad.org/H0Zyau3z    [ raw code | output | fork ]

Perl, pasted on Feb 9:
1
2
3
4
5
$m = 1000;
for $x ( 2..$m ) {
    $c{$x**$_}++ for 2..log($m)/log$x
}
print join ' ', grep { $c{$_} > 1 } keys %c


Output:
1
729 16 512 625 64 81 256


Create a new paste based on this one


Comments: