import Control.Applicative
import Control.Monad
import Control.Monad.ST
import Data.Vector.Unboxed.Mutable (IOVector, STVector)
import qualified Data.Vector.Unboxed.Mutable as VM

main :: IO ()
main = solve <$> readLn >>= print

solve :: Int -> Int
solve x = runST $ do
  dp <- VM.replicate 100001 0 :: ST s (STVector s Int)
  VM.write dp 0 1
  forM_ [100 .. 105] $ \i -> do
    forM_ [0 .. 100000] $ \j -> do
      y <- VM.read dp j
      when (y == 1 && i + j <= 100000) $ VM.write dp (i + j) 1
  r <- VM.read dp x
  return r
