$s = 0;
for (my $i = 2; $i < 10000000; ++$i) {
	my $n = $i;
	my $k = 0;
	while ($n) {
		my $c = $n % 10;
		$n = int($n / 10);
		$k += $c ** 5;
	}
	if ($k == $i) {
		print $i,"\n";
		$s += $i;
	}
}
print $s;