program main 
    integer :: a, b 
    integer :: tmp , count=1

    read(*,*) a, b 
    do
        b=int(b/10)
        if(b==0) exit 
        count=count+1
    end do

    tmp = a*(10**count)+b 
    if (tmp == (int(sqrt(real(tmp,8))))**2) then
        write(*,*) 'Yes'
    else
        write(*,*) 'No'
    end if
end program 