FUNCTION :  qnr - quadratic non-residues
                

CALLING SEQUENCE :  qnr(p)
                    

PARAMETERS :   p - prime == 1 mod 4

SYNOPSIS :   
      Returns quadratic non-residues mod p that are < p/2
   

EXAMPLES :   

> with(ramarobinsids):
> qr(13);
                           [1, 3, 4]
> qnr(13);
                           [2, 5, 6]




DISCUSSION :
  2, 5, 6 are the quadratic residues mod 13 that are < 13/2

SEE ALSO :  

qr