Data commit

Task/Arithmetic-numbers/11l/arithmetic-numbers.11l

@@ -0,0 +1,30 @@
+F factors(Int n)
+   V f = Set([1, n])
+   V i = 2
+   L
+      V j = n I/ i
+      I j < i
+         L.break
+      I i * j == n
+         f.add(i)
+         f.add(j)
+      i++
+   R f
+
+V arithmetic_count = 0
+V composite_count = 0
+V n = 1
+L arithmetic_count <= 1000000
+   V f = factors(n)
+   I sum(f) % f.len == 0
+      arithmetic_count++
+      I f.len > 2
+         composite_count++
+      I arithmetic_count <= 100
+         print(f:‘{n:3} ’, end' ‘’)
+         I arithmetic_count % 10 == 0
+            print()
+      I arithmetic_count C (1000, 10000, 100000, 1000000)
+         print("\n"arithmetic_count‘th arithmetic number is ’n)
+         print(‘Number of composite arithmetic numbers <= ’n‘: ’composite_count)
+   n++