powers haskell

module Powers
    (
        powersSimpleSolution
    ) where

import Data.List (nub)

powersSimpleSolution :: Int -> Int
powersSimpleSolution n = length (nub [(toInteger (a)) ^ (toInteger (b)) | a <- [1 .. n], b <- [1 .. n]])