Tau number: Difference between revisions

=={{header|PascalABC.NET}}==

<syntaxhighlight lang="delphi">

##

function DivisorsCount(n: integer) := Range(1,n).Count(i -> n.Divs(i));

var lst := new List<integer>;

var n := 1;

while lst.Count < 100 do

begin

if n.Divs(DivisorsCount(n)) then

lst.Add(n);

n += 1;

end;

lst.Println;

</syntaxhighlight>

{{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>