import Data.List
import Data.Function
 
isPrick :: Integer -> Bool
isPrick = (== 1) . length . nubBy ((==) `on` (sort . show)) . flip map [1..6] . (*)
 
main :: IO ()
main = print $ find isPrick [1..]