Numbers which are the cube roots of the product of their proper divisors: Difference between revisions
Content added Content deleted
(J) |
m (→{{header|J}}) |
||
Line 22:
=={{header|J}}==
Note that the cube root of the proper divisors is the fourth root of all divisors of a positive integer. That said, we do not need to find roots here:
<syntaxhighlight lang=J>F=: ('';1 1 1;1 3;,7) e.~ __ <@/:~@{:@q:"0 ]</
Task examples:
| |||