$a=<>;
++$j2 while 2**$j2<$a;
++$j3 while 3**$j3<$a;
++$j5 while 5**$j5<$a;
print+(sort{$a-$b}$j2*2,$j3*3,$j5*5)[0]