main = do
  [m,n] <- map read . words <$> getLine
  print (knap m n)

apply n f x = foldr ($!) x (replicate n f) 

knap m n = apply n tap (fromIntegral m)

tap m = (2*m + (m+1)) / 3