evaluate JacobiSymbol[x*y,y] at x=n,y=2