RosettaCodeData/Task/Long-primes/F-Sharp/long-primes-8.fs
2023-07-01 13:44:08 -04:00

1 line
147 B
FSharp

printfn "There are %d long primes less than 16000" (primes |> Seq.skip 3 |> Seq.takeWhile(fun n->n<16000) |> Seq.filter isLongPrime |> Seq.length)