module Main where--

is_square n x =
  case compare (x*x) n of
    LT -> is_square n (x+1)
    GT -> "No"
    EQ -> "Yes"

main :: IO ()
main = do
        a <- read . concat . words <$> getLine
        putStrLn $ is_square a 1
