@a=(`seq 500000|factor|egrep ': \\w*\$'`,1000);
for$i(@a){
	for$j(@a){
		last if $j==$i;
		last if ($v=$i*$j)>=4e6;
		push@b,$v;
	}
}
@b=sort{$a<=>$b}@b;
print$b[<>-5];