program main
  implicit none
  integer :: a, b, ab
  character(6) :: sa, sb, sab
  read(*, *) a, b
  write(sa, "(i3)") a
  write(sb, "(i3)") b
  sab = trim(sa) // trim(sb)
  read(sab, *) ab
  if (nint(ab ** 0.5) ** 2 == ab) then
    write(*, "(a)") "Yes"
  else
    write(*, "(a)") "No"
  end if
end program main
