$a[$_]=1 for 4,6,8,9,10,12;
$k=<>;
for(2,3,5,6,11,13){
    if($k%$_==0 && $a[$k/$_]){
	++$c;
    }
}
print $c/36;