import qualified Data.ByteString.Char8 as C
import Data.List
import Data.Maybe

main = sol <$> get <*> get >>= print

get = unfoldr (C.readInt . C.dropWhile (==' ')) <$> C.getLine

sol [_,k] as = length . filter isNothing $ f ps <$> as
  where
  ps = filter ((>=k) . sum) $ subsequences as
  f ps a = find (`notElem` ps) . filter (not . null) . 
  	fmap (flip (\\) [a]) $ filter (elem a) ps