func main()
	var N: int :: cui@input().toInt(&)
	var factors: []int :: math@primeFactors(N)
	var ans: bool :: ^factors > 2
	for i(0, ^factors - 1)
		if(N % (factors[i] ^ 2) = 0 & N / factors[i] ^ 2 <> 1)
			do ans :: true
			break i
		end if
	end for
	do cui@print(ans ?("YES\n", "NO\n"))
end func