Proper divisors: Difference between revisions

m
No edit summary
Line 3,940:
Private Function S(n As Long) As String()
'returns the proper divisors of n
Dim i As Long, j As Long, t() As String, c As Long
't = list of proper divisor of n
If n > 1 Then
Anonymous user