import Data.Array
import Data.Function

yoba :: Int -> Int
yoba n = (! n) $ fix (\yoba' -> listArray (0, n) (0 : [v - yoba' ! (yoba' ! pred v) | v <- [1..n]]))
 
main = print $ yoba 201200