RosettaCodeData/Task/Extensible-prime-generator/F-Sharp/extensible-prime-generator-4.fs

printfn "%d" (primes32() |> Seq.skipWhile (fun n->n<7700) |> Seq.takeWhile (fun n->n<=8000) |> Seq.length)