Anonymous user
Proper divisors: Difference between revisions
→{{header|Mathematica}} / {{header|Wolfram Language}}: Incorrect.
(→{{header|Mathematica}} / {{header|Wolfram Language}}: Incorrect.) |
|||
Line 256:
=={{header|Mathematica}} / {{header|Wolfram Language}}==
{{incorrect|Mathematica|18720 for example is not part of a solution asked for by the task.}}
Proper divisors of n from 1 to 10
<lang Mathematica>Join[{{1, {}}}, Table[{n, Most@Divisors@n}, {n, 2, 10}]] // Grid</lang>
Line 279 ⟶ 280:
15120 79
18480 79</pre>
=={{header|Perl}}==
===Using a module for divisors===
|