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