map{for($j=1+$_%2;$j<$_&$_*($_+$j)*2<=$l;$j+=2){$a=$_,$b=$j;$a=$b*1%($b=$a)while$a;$%+=$b<2}}2..sqrt($l=<>/4);print$%