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

m
Line 421:
nths :: [(Integer, Integer)]
nths = do
n <- [1..3035] :: [Integer]
if isPrime n then
pure (n, nthPrime (fromIntegral n) ^ (pred n - 1))
else
pure (n, f n)
Line 462:
(28,9152)
(29,1116713952456127112240969687448211536647543601817400964721)
(30,6768)</pre>
(31,1300503809464370725741704158412711229899345159119325157292552449)
(32,3990)
(33,12166144)
(34,9764864)
(35,446265625)</pre>
 
=={{header|Java}}==
Anonymous user