Starting, calc_proper_factors(n)
More work, changing to factor sieve
Sieve seems to work
Ready for cycle dectecion
Basic cycle detection