isSq :: Int -> Bool
isSq n = elem n [i ^ 2 | i <- [0..(round . sqrt $ fromIntegral n) + 1]]

main = do
    [a, b] <- words <$> getLine
    putStrLn $ if isSq $ read (a ++ b)
        then "Yes"
        else "No"
