Numbers which are the cube roots of the product of their proper divisors: Difference between revisions
Numbers which are the cube roots of the product of their proper divisors (view source)
Revision as of 10:34, 30 September 2022
, 1 year ago→{{header|J}}
m (→{{header|J}}) |
m (→{{header|J}}) |
||
Line 21:
=={{header|J}}==
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>
| |||