main :: IO ()
main = do
    input <- words <$> getLine
    let num = read $ mconcat input
    let sq = sqrt num
    if isInt sq
        then putStrLn "Yes"
        else putStrLn "No"


isInt :: Float -> Bool
isInt num = num == fromInteger (round num)