use bigint;
map{
for($j=1+$_%2;$j<$_&&$_*($_+$j)*2<=$l;$j+=2){
$%+=2>bgcd$j$_
}
}2..sqrt($l=<>/4);print$%