hasse diagram

This function produces a hasse diagram.

For start just run it, or write hassep7(number). The default value for the number is 1008. The graph will work up to dimension of 3. The sum is correct up to dimension of 5. The function will give back the sum of its factors. You can explore as well a whole alicuot cycle. Examples are given in the code.