Problem 30
p30_limit x n | logBase 10 (x * n) > n = p30_limit x (n+1) | otherwise = n p30 n = sum $ filter (\x -> x /= 1 && x == (sum $ map (\y -> y ^ n) $ split_s_to_i $ show x)) $ [1..(product $ take (fromIntegral (truncate $ p30_limit (9^n) 1)) $ repeat 10)] p30 5