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

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

    tmp = a*(10**count)+b 

    if ((int(sqrt(real(tmp,8))))**2.eq.tmp) then
        write(*,*) 'Yes'
    else 
        write(*,*) 'No'
    end if
end program 