Erdős-Nicolas numbers: Difference between revisions
m
→{{header|J}}: include 'k' for each of these numbers
(J draft) |
m (→{{header|J}}: include 'k' for each of these numbers) |
||
Line 27:
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
(,. 1++/\@divisors i. ])@>24 2016 8190 42336 45864 392448 714240 1571328
24 6
2016 31
8190 43
42336 66
45864 66
392448 68
714240 113
1571328 115
</lang>
=={{header|Phix}}==
{{trans|Wren}}
| |||