Multiplicatively perfect numbers: Difference between revisions

Content added Content deleted

Inline

@@ Line 15: / Line 15: @@
 <syntaxhighlight lang="ring">
 see "working..." + nl
+see "Special numbers under 500:" + nl
 limit = 500
 Divisors = []
@@ Line 20: / Line 21: @@
     pro = 1
     Divisors = []
-    for m = 2 to ceil(sqrt(n))+1
+    for m = 2 to ceil(n/2)
         if n % m = 0
            pro = pro * m
@@ Line 29: / Line 30: @@
     if n = pro and len(Divisors) > 1
        for m = 1 to len(Divisors)
-           str = str + Divisors[m] + ", "
+           str = str + Divisors[m] + " * "
            if m = len(Divisors)
-              str = left(str,len(str)-2) + "]"
+              str = left(str,len(str)-2)
            ok
        next
-       see "n = " + n + "  divisors = " + "[" + str + "  product = " + pro + nl
+       see "" + n + " = " + str + nl
     ok
 next
@@ Line 41: / Line 42: @@
 {{out}}
 <pre>
-working...
+working...Special numbers under 500:
-n = 6  divisors = [2, 3]  product = 6
+=   2 x   3
-n = 8  divisors = [2, 4]  product = 8
+=   2 x   4
-n = 10  divisors = [2, 5]  product = 10
+=   2 x   5
-n = 15  divisors = [3, 5]  product = 15
+=   2 x   7
-n = 35  divisors = [5, 7]  product = 35
+=   3 x   5
-n = 64  divisors = [2, 4, 8]  product = 64
+=   3 x   7
+=   2 x  11
-n = 105  divisors = [3, 5, 7]  product = 105
+=   2 x  13
-n = 135  divisors = [3, 5, 9]  product = 135
+=   3 x   9
-n = 143  divisors = [11, 13]  product = 143
-n = 165  divisors = [3, 5, 11]  product = 165
+=   3 x  11
+=   2 x  17
-n = 189  divisors = [3, 7, 9]  product = 189
-n = 231  divisors = [3, 7, 11]  product = 231
+=   5 x   7
+=   2 x  19
-n = 273  divisors = [3, 7, 13]  product = 273
-n = 286  divisors = [2, 11, 13]  product = 286
+=   3 x  13
+=   2 x  23
-n = 297  divisors = [3, 9, 11]  product = 297
+=   3 x  17
-n = 323  divisors = [17, 19]  product = 323
+=   5 x  11
-n = 351  divisors = [3, 9, 13]  product = 351
+=   3 x  19
-n = 357  divisors = [3, 7, 17]  product = 357
+=   2 x  29
-n = 374  divisors = [2, 11, 17]  product = 374
+=   2 x  31
-n = 385  divisors = [5, 7, 11]  product = 385
-n = 429  divisors = [3, 11, 13]  product = 429
+=   5 x  13
+=   3 x  23
-n = 442  divisors = [2, 13, 17]  product = 442
+=   2 x  37
-n = 455  divisors = [5, 7, 13]  product = 455
+=   7 x  11
-n = 459  divisors = [3, 9, 17]  product = 459
+=   2 x  41
-n = 494  divisors = [2, 13, 19]  product = 494
+=   5 x  17
+=   2 x  43
+=   3 x  29
+=   7 x  13
+=   3 x  31
+=   2 x  47
+=   5 x  19
+=   2 x  53
+=   3 x  37
+=   5 x  23
+=   2 x  59
+=   7 x  17
+=   2 x  61
+=   3 x  41
+=   5 x  25
+=   3 x  43
+=   7 x  19
+=   2 x  67
+=   3 x  47
+=   2 x  71
+=  11 x  13
+=   5 x  29
+=   2 x  73
+=   5 x  31
+=   2 x  79
+=   3 x  53
+=   7 x  23
+=   2 x  83
+=   3 x  59
+=   2 x  89
+=   3 x  61
+=   5 x  37
+=  11 x  17
+=   2 x  97
+=   3 x  67
+=   2 x 101
+=   7 x  29
+=   5 x  41
+=   2 x 103
+=  11 x  19
+=   3 x  71
+=   2 x 107
+=   5 x  43
+=   7 x  31
+=   2 x 109
+=   3 x  73
+=  13 x  17
+=   2 x 113
+=   5 x  47
+=   3 x  79
+=  13 x  19
+=   3 x  83
+=  11 x  23
+=   2 x 127
+=   7 x  37
+=   2 x 131
+=   5 x  53
+=   3 x  89
+=   2 x 137
+=   2 x 139
+=   7 x  41
+=   3 x  97
+=   5 x  59
+=   2 x 149
+=  13 x  23
+=   7 x  43
+=   2 x 151
+=   3 x 101
+=   5 x  61
+=   3 x 103
+=   2 x 157
+=  11 x  29
+=   3 x 107
+=  17 x  19
+=   2 x 163
+=   3 x 109
+=   7 x  47
+=   2 x 167
+=   5 x  67
+=   3 x 113
+=  11 x  31
+=   7 x  49
+=   2 x 173
+=   5 x  71
+=   2 x 179
+=   2 x 181
+=   5 x  73
+=   7 x  53
+=  13 x  29
+=   3 x 127
+=   2 x 191
+=   2 x 193
+=  17 x  23
+=   3 x 131
+=   2 x 197
+=   5 x  79
+=   2 x 199
+=  13 x  31
+=  11 x  37
+=   3 x 137
+=   7 x  59
+=   5 x  83
+=   3 x 139
+=   2 x 211
+=   7 x  61
+=  19 x  23
+=   5 x  89
+=   2 x 223
+=   3 x 149
+=  11 x  41
+=   3 x 151
+=   2 x 227
+=   2 x 229
+=   2 x 233
+=   7 x  67
+=   3 x 157
+=  11 x  43
+=   2 x 239
+=  13 x  37
+=   2 x 241
+=   5 x  97
+=   3 x 163
+=  17 x  29
+=   7 x  71
 done...
 </pre>