Data commit

Task/Tau-number/AppleScript/tau-number-1.applescript

@@ -0,0 +1,30 @@
+on factorCount(n)
+    if (n < 1) then return 0
+    set counter to 2
+    set sqrt to n ^ 0.5
+    if (sqrt mod 1 = 0) then set counter to 1
+    repeat with i from (sqrt div 1) to 2 by -1
+        if (n mod i = 0) then set counter to counter + 2
+    end repeat
+
+    return counter
+end factorCount
+
+-- Task code:
+local output, n, counter, astid
+set output to {"First 100 tau numbers:"}
+set n to 0
+set counter to 0
+repeat until (counter = 100)
+    set n to n + 1
+    if (n mod (factorCount(n)) = 0) then
+        set counter to counter + 1
+        if (counter mod 20 = 1) then set end of output to linefeed
+        set end of output to text -5 thru -1 of ("    " & n)
+    end if
+end repeat
+set astid to AppleScript's text item delimiters
+set AppleScript's text item delimiters to ""
+set output to output as text
+set AppleScript's text item delimiters to astid
+return output

Task/Tau-number/AppleScript/tau-number-2.applescript

@@ -0,0 +1,6 @@
+"First 100 tau numbers:
+    1    2    8    9   12   18   24   36   40   56   60   72   80   84   88   96  104  108  128  132
+  136  152  156  180  184  204  225  228  232  240  248  252  276  288  296  328  344  348  360  372
+  376  384  396  424  441  444  448  450  468  472  480  488  492  504  516  536  560  564  568  584
+  600  612  625  632  636  640  664  672  684  708  712  720  732  776  792  804  808  824  828  852
+  856  864  872  876  880  882  896  904  936  948  972  996 1016 1040 1044 1048 1056 1068 1089 1096"