Tau number: Difference between revisions
→{{header|Frink}}
(Frink) |
|||
Line 916:
=={{header|Frink}}==
<lang frink>tau = {|x| x mod length[allFactors[x]] == 0}
println[formatTable[columnize[first[select[count[1], tau], 100], 10], "right"]]</lang>
{{out}}
<pre>
|