main = do
    ss<- words <$> getLine
    (putStrLn . isQuad . read . foldl (++) "") ss

isQuad::Int->String
isQuad x = case [a|a<-[1..1000],x==a*a] of [] -> "No"
                                           ls -> "Yes"