main = do
  [a,b] <- words <$> getLine 
  putStrLn $ solve (a,b)

solve :: (String,String) -> String
solve (a,b) =
  if ok(read (a++b)) then "Yes" else "No"

ok :: Int -> Bool
ok n = sq == fromIntegral (ceiling sq)
  where m = fromIntegral n
        sq = sqrt m