import Control.Applicative ((<$>))

main :: IO ()
main = solve <$> map read <$> words <$> getLine >>= print

solve :: [Int] -> Double
solve [p, c] = pe ** (fromIntegral p) * ce ** (fromIntegral c)
  where pe = sum [2,3,5,7,11,13] / 6.0
        ce = sum [4,6,8,9,10,12] / 6.0