program main
  implicit none
  integer(8) :: ab, i
  character(6) :: sa, sb, sab
  read(*, *) sa, sb
  sab = trim(sa) // trim(sb)
  read(sab, *) ab
  ! do i = 1, 1000
  !   if (i * i == ab) then
  !     write(*, "(a)") "Yes"
  !     stop 0
  !   end if
  ! end do
  ! write(*, "(a)") "No"
  if (nint(ab ** 0.5_8) ** 2 == ab) then
    write(*, "(a)") "Yes"
  else
    write(*, "(a)") "No"
  end if
end program main
