program main
  implicit none
  integer :: 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) ** 2 == ab) then
  !   write(*, "(a)") "Yes"
  ! else
  !   write(*, "(a)") "No"
  ! end if
end program main
