Jump to content

Product of divisors: Difference between revisions

Line 1,172:
41 3111696 43 85184 91125
2116 47 254803968 343 125000</pre>
 
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>Divisors/*Apply[Times] /@ Range[50]</lang>
{{out}}
<pre>{1, 2, 3, 8, 5, 36, 7, 64, 27, 100, 11, 1728, 13, 196, 225, 1024, 17, 5832, 19, 8000, 441, 484, 23, 331776, 125, 676, 729, 21952, 29, 810000, 31, 32768, 1089, 1156, 1225, 10077696, 37, 1444, 1521, 2560000, 41, 3111696, 43, 85184, 91125, 2116, 47, 254803968, 343, 125000}</pre>
 
=={{header|Nim}}==
1,111

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.