Sequence: smallest number with exactly n divisors: Difference between revisions

m
→‎{{header|Haskell}}: Pruned a little noise
m (→‎Functional Python: Refactored)
m (→‎{{header|Haskell}}: Pruned a little noise)
Line 317:
a005179 =
catMaybes $
(\n -> find (\x -> (n ==) . succ (. length (. properDivisors x))) [1 ..]) <$> [1 ..]
 
properDivisors :: Int -> [Int]
Line 332:
{{Out}}
<pre>[1,2,4,6,16,12,64,24,36,48,1024,60,4096,192,144]</pre>
 
 
 
=={{header|J}}==
9,655

edits