CompositeQ[1840]