Problem 162

http://projecteuler.net/index.php?section=problems&id=162
組み合わせの問題だが簡単でしょ。
それよりもProblem 161 が解けない。

import Numeric
import Data.Char
f k = 15*16^(k-1) - (15^k+2*14*15^(k-1)-(2*14^k+13*14^(k-1))+13^k)
main = putStrLn.map toUpper.showHex'.sum.map f $[3..16]
    where showHex' n = showHex n ""