Sequence: smallest number greater than previous term with exactly n divisors: Difference between revisions
Content deleted Content added
Line 306:
countDivisors n = foldr f 0 [1..floor (sqrt $ realToFrac n)]
where
f
| otherwise = r
go t ((n,
| otherwise = go t xs
|