use bigint; $n=<>+0; $a=1; while($n>=($a*=<2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59>)){ ++$i; } print$i;