>>573
７番目だと変わらないみたいだけど
整数の候補の上限を変えたら答が変わるな。

pitNth n m = do
let ps = [(a,b,c)|a<-[1..m],b<-[a..m],c<-[b..m],a^2+b^2==c^2]
map (\x -> ps !! x) [0..(n-1)]

２桁の９９までだと２０番目は,(20,21,29)
Prelude> pitNth 20 99
[(3,4,5),(5,12,13),(6,8,10),(7,24,25),(8,15,17),(9,12,15),(9,40,41),(10,24,26),(11,60,61),(12,16,20),(12,35,37),(13,84,85),(14,48,50),(15,20,25),(15,36,39)
,(16,30,34),(16,63,65),(18,24,30),(18,80,82),(20,21,29)]

３桁の９９９までだと２０番目は,(18,24,30)
Prelude> pitNth 20 999
[(3,4,5),(5,12,13),(6,8,10),(7,24,25),(8,15,17),(9,12,15),(9,40,41),(10,24,26),(11,60,61),(12,16,20),(12,35,37),(13,84,85),(14,48,50),(15,20,25),(15,36,39)
,(15,112,113),(16,30,34),(16,63,65),(17,144,145),(18,24,30)]