Proper divisors: Difference between revisions

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

edits