import           Control.Monad

solve :: Int -> String
solve = f 0
  where
    f i n
      | i * i < n = f (i + 1) n
      | i * i > n = "No"
      | otherwise = "Yes"

main :: IO ()
main = do
  n <- read . concat . words <$> getLine :: IO Int
  putStrLn $ solve n
