import Control.Monad
import Prelude
import Data.Char
import Control.Applicative

main :: IO()
main = do
  [b,c] <- map (read :: String -> Int) . words <$> getLine :: IO [Int]
  let a=show b++show c :: String
  let bool= elem (read a)  (map(^2)[0..1000]) 
  if bool ==True
    then putStrLn "Yes"
    else putStrLn "No"