Some number function for playing around with number theory in Haskell