main :: IO ()
main = interact solve

solve :: String -> String
solve str = if (floor numsqrt::Int) == (ceiling numsqrt::Int) then "Yes\n" else "No\n"
  where num = read $ filter (/= ' ') str
        numsqrt = sqrt num :: Float