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