Erdős-Nicolas numbers: Difference between revisions
J draft
(J draft) |
|||
Line 24:
<br><br>
=={{header|J}}==
Implementation:<lang J>divisors=: {{ /:~ ,*/@> { (^ i.@>:)&.>/__ q: y}} ::_:
erdosnicolas=: {{ y e. +/\ _2}. divisors y }}"0</lang>Task example:<lang J> I.erdosnicolas i.1e7
24 2016 8190 42336 45864 392448 714240 1571328</lang>
=={{header|Phix}}==
{{trans|Wren}}
|