CompositeQ[6789]