main = do
  str <- getLine
  let [a', b'] = words str
      a = read a' ::Int
      b = read b' ::Int
  let num = a * 10^(length b') + b
  let list = map (^2) [1..320]
  if num `elem` list
    then putStrLn "Yes"
    else putStrLn "No"
