module Main where

main :: IO ()
main = do
  num <- getLine >>= return . read . filter (/= ' ')
  putStrLn $ if isSquare num then "Yes" else "No"

isSquare x = sqrt x == (fromIntegral . truncate . sqrt) x
