Thanks for your suggestion. I wouldn't have thought of composing the two partially applied functions not . (== 0) . (n mod). I will correct the gist.
Actually, I wrote the code more than two years ago while starting to learn Haskell.http://blog.opicasso.com/project-euler-problem-3