use List::MoreUtils qw(uniq);

my @t;
my %c;
foreach my $a (2 .. 100) {
	foreach my $b (2 .. 100) {
		push(@t, $a ** $b);
	}
}
@t = uniq(@t);
print scalar(@t);