improved version of composites, haskell will stop when the first devisor is found and is not the same number