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

m
Line 411:
calc :: Integer -> [(Integer, Integer)]
calc n = do
x <- [1..]
guard (even n || odd n && f x == x)
[(x, divisorCount x)]
where f n = floor (sqrt $ realToFrac n) ^ 2
 
Anonymous user