Tau number: Difference between revisions
Content deleted Content added
m →{{header|REXX}}: added/changed comments, added a foot title. |
No edit summary |
||
Line 1,155: | Line 1,155: | ||
1089 |
1089 |
||
1096</pre> |
1096</pre> |
||
=={{header|Mathematica}}== |
|||
<lang Mathematica>Take[Select[Range[10000], Divisible[#, Length[Divisors[#]]] &], 100]</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|Nim}}== |
=={{header|Nim}}== |