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}}
6,962

edits