import Lib (factors)

main :: IO ()
main = putStr $ show $ solve 500

solve :: Int -> Integer
solve n = head [tn | i <- [1 ..], let tn = triangleNumber i, (length . factors) tn > n]

triangleNumber :: Int -> Integer
triangleNumber n = toInteger $ div (n * (n + 1)) 2