http://projecteuler.net/index.php?section=problems&id=124

これも、そのまま。

import Number
import Data.List
rad = product.nub.factors
p124 m= sort[(rad n,n)|n<-[1..m]]
main = print.snd$p124 (10^5) !!9999