Proper divisors: Difference between revisions

m
(J)
Line 37:
 
<lang J>factors=: [: /:~@, */&>@{@((^ i.@>:)&.>/)@q:~&__
properDivisors=: factors -. -.&1</lang J>
 
Proper divisors of numbers 1 through 10:
6,962

edits