import Data.List
import Control.Monad

main = readLn >>= print . sekai

sekai :: Integer -> Integer
sekai p = div (2*(10^(p-1))) 3 + sum (unfoldr f (10^(p-1))) + div (10^p) 3
 where f x = guard (mod x 10 == 0) >> Just (div (2 * div x 10 * 9) 3, div x 10 * 9)