import Data.List
import Data.Ord
import Data.Char
import Data.Ratio
import Data.Maybe

main = do
  x <- (read::String->Int) .concat . words <$> getLine
  putStrLn $ if isSquare x then "Yes" else "No"

isSquare :: Int -> Bool
isSquare n = m * m == n
  where m = intSqrt(n)
intSqrt :: Int -> Int
intSqrt n = floor (sqrt (fromIntegral n))