read a b
c=0
for ((i=1; i*i <= a; i++)) ; do
	if ((a%i==0)); then
		if ((i%b==0)); then
			c=$((c+1))
		fi
		if ((i*i!=a && a/i%b==0)); then
			c=$((c+1))
		fi
	fi
done
echo $c