program sample
    implicit none
  
    integer(8) :: i,j,m,n,a,b,k
    
    integer(8),allocatable :: x(:),y(:)
  
    read(*,*) a,b
    k=int(log10(real(b)))+1
    m=a*10**k+b
    if (int(sqrt(real(m)))**2==m)then
       write(*,*) 'Yes'
    else
        write(*,*)'No'
    end if
  
    stop
end program sample
  

