Ormiston pairs: Difference between revisions

printfn $"<10 million: %d{primes32()|>Seq.takeWhile((>)10000000)|>Seq.pairwise|>Seq.filter fG|>Seq.length}"

printfn $"<100 million: %d{primes32()|>Seq.takeWhile((>)100000000)|>Seq.pairwise|>Seq.filter fG|>Seq.length}"

</syntaxhighlight>

{{out}}

<10 million: 3722

<100 million: 34901

</pre>