> let ts = scanl (+) 3 [3..]; factors x = length . filter ((== 0) . (mod x)) . takeWhile (< x) $ ts in head $ dropWhile ((< 6) . factors) ts

or in multi-line form https://gist.github.com/...