($n,$d)=glob<>;
for$x(1..$n){
	$a[$x*$x*2]-=1;
	for$y(1..$x){
		$a[$x*$x+$y*$y]+=2;
	}
}
for$w(1..$n){
	for$z(1..$n){
		$e=$w*$w-$z*$z+$d;
		last if $e<0;
		$r+=$a[$e];
	}
}
print$r