Numbers which are the cube roots of the product of their proper divisors: Difference between revisions
Content added Content deleted
m (→{{header|J}}) |
m (→{{header|J}}) |
||
Line 21: | Line 21: | ||
=={{header|J}}== |
=={{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: |
Note that the cube root of the product of the proper divisors is the fourth root of the product 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 ]</syntaxhighlight> |
<syntaxhighlight lang=J>F=: ('';1 1 1;1 3;,7) e.~ __ <@/:~@{:@q:"0 ]</syntaxhighlight> |
||