import Control.Monad
import Control.Applicative
import Data.List
import Data.Array
strToInt s = (read :: String -> Int) s

main = do
   ab <- getLine
   let c0 = words ab
   let c = read ((head c0) ++ (last c0)) :: Int
   
   let ans = [n |  n <- [1..317], n^2 == c]
   
   if ans == []
   then putStrLn "No"
   else putStrLn "Yes"
   