main = do
  a:b:_ <- words <$> getLine
  let ab = read (a++b)
  putStrLn $ if isSquare ab then "Yes" else "No"

isSquare n = checkSquare n 1
checkSquare 0 _ = True
checkSquare n m
  | n < 0 = False
  | otherwise = checkSquare (n-m) (m+2)
