let esPerfecto n = (divisores n |> Set.toList |> List.sum) - n = n