import Control.Monad
import Text.Printf
import Control.Applicative

main :: IO()
main = do
    [a, b] <- words <$> getLine
    printf "%s" $ slv a b

slv :: String -> String -> String
slv a b | last checkList == val = "Yes"
        | otherwise = "No" 
  where val = read (a ++ b) :: Integer
        checkList = takeWhile (<= val) [x*x | x <- [1..]]