Strong and weak primes: Difference between revisions
Content added Content deleted
(Frink) |
|||
Line 392: | Line 392: | ||
<lang frink> |
<lang frink> |
||
strongPrimes[end=undef] := select[primes[3,end], {|p| p > (previousPrime[p] + nextPrime[p])/2 }] |
strongPrimes[end=undef] := select[primes[3,end], {|p| p > (previousPrime[p] + nextPrime[p])/2 }] |
||
weakPrimes[end=undef] := select[primes[3,end], {|p| p < (previousPrime[p] + nextPrime[p])/2 }] |
weakPrimes[end=undef] := select[primes[3,end], {|p| p < (previousPrime[p] + nextPrime[p])/2 }] |
||
println["First 36 strong primes: " + first[strongPrimes[], 36]] |
println["First 36 strong primes: " + first[strongPrimes[], 36]] |