Tau number: Difference between revisions
Frink
(Added XPL0 example.) |
(Frink) |
||
Line 913:
856 864 872 876 880 882 896 904 936 948
972 996 1016 1040 1044 1048 1056 1068 1089 1096</pre>
=={{header|Frink}}==
<lang frink>tau = {|x| x mod length[allFactors[x]] == 0}
formatTable[columnize[first[select[count[1], tau], 100], 10], "right"]</lang>
{{out}}
<pre>
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
</pre>
=={{header|Go}}==
| |||