open System open System.Collections.Generic [] module Cin = let read f = stdin.ReadLine() |> f let reada f = stdin.ReadLine().Split() |> Array.map f let readChars() = read string |> Seq.toArray let readInts() = readChars() |> Array.map (fun x -> Convert.ToInt32(x.ToString())) [] module Cout = let writer = new IO.StreamWriter(new IO.BufferedStream(Console.OpenStandardOutput())) let print (s: string) = writer.Write s let println (s: string) = writer.WriteLine s let inline puts (s: ^a) = string s |> println //        /             ` 、       感謝するぜ  お前と出会えた //        /          ノノ  ヽ //       ,     ニニ彡'⌒    /`ヽ        これまでの  全てに //       '   ニミ ニニ彡      〈rう├--ミ //        { { ニミ } j j jノx'ィイく  }し{\   `丶、___/ニニニ //       j_ニニミV ハレノ x<⌒ヽ  V ヘ  \    \ニニニニニニニ //       {xミミー'ヾ(、ル( 厶tァァく⌒ヾ}  )ハ::::::.    \ニニニニニニ //      彡ィ'">tァ} \(`ニ彡 ノ` /ト=く   ::::::i     \ニニニニニニ //      (   V^`こ7  _, \``ヾヽ` ノ|`ヽ ヽ l:::::|       \ニニニニニ //          ∧  { '  ` ノ^ヽ    { ノ     !:::::|   ___ノ^ヽニニニニニニ //       /.::::\ゝヽ. _ノヽ``ヽ, -――- 、 /:::::/ /      ̄`ヽニニニニニ //      /.::::::::::::::::>'"ノルハヽ`/ -―- 、⌒V::::::/.// j___ノ、  ヽニニニニニ //   /ニニ、`ヽ`ヾヘ{ {、ムイ 、_(   >  \/ (__ ノニニニ     \ニニニニ //  ,仁ニニニ\ヽヽヽ ∨   /ニニ>彡>--')__ ノ    `ヽニ     \ニニニ二 //  ニニニニニニヽ   /     {ニニ> ´ `¨¨´         ニ}      \>''"´ //  ニニニニニニニニ/     ∨ /               }八 //  ニニニニニニニ./        }ニ{                ノニヽ     ノ //  ニニニニニニニ/       }ニハ               /⌒ヽヽヽ ___彡 //  ニニニニニニニ!        ノニニヽ、            /     ` ー=彡'ニニニニニ //  ニニニニニニニ}          ⌒`丶、     /⌒ヽ  ノ     ノ_____ //   / ̄ ̄ ̄`ヽ/ヽ、 _彡ヘ{ {        > 、 /     /  ̄ ̄ ̄ //      ) 、    /   ヾ、    ヽ ヽ      (    `{    / //  // ⌒ヽ  /    〃 トミ  ___ >--‐=、   ヽ _ノ //   {       /    //     /         \__ノ // ----------------------------------------------------------------------------------------------------- // ----------------------------------------------------------------------------------------------------- let main() = let [| n; k |] = reada int let mp = Array.zeroCreate (n + 1) for p in 2 .. n do if mp.[p] > 0 then () else mp.[p] <- 1 for q in 2 .. n do if p * q > n then () else mp.[p * q] <- mp.[p * q] + mp.[p] mp.[2..] |> Array.filter (fun x -> x >= k) |> Array.length |> puts () // ----------------------------------------------------------------------------------------------------- main() writer.Dispose()