make this into a set
A related Boolean function is
divides :: Integral a => a -> a -> Bool divides d n = rem n d == 0
Function
Natural numbers