Quad-power prime seeds: Difference between revisions
Content added Content deleted
(Quad-power prime seeds in FreeBASIC) |
(→{{header|Ruby}}: Add Ruby) |
||
Line 389: | Line 389: | ||
ten million is the 701st: 10,023,600</pre> |
ten million is the 701st: 10,023,600</pre> |
||
=={{header|Ruby}}== |
|||
<syntaxhighlight lang="ruby">require 'openssl' |
|||
quad_pow_primes = (1..).lazy.select{|n| (1..4).all?{|exp| OpenSSL::BN.new(n**exp + n + 1).prime?} } |
|||
n = 50 |
|||
puts "The first #{n} quad-power prime seeds:" |
|||
quad_pow_primes.take(n).each_slice(10){|s| puts "%8s"*s.size % s}</syntaxhighlight> |
|||
{{out}} |
|||
<pre>The first 50 quad-power prime seeds: |
|||
1 2 5 6 69 131 426 1665 2129 2696 |
|||
5250 7929 9689 13545 14154 14286 16434 19760 25739 27809 |
|||
29631 36821 41819 46619 48321 59030 60500 61955 62321 73610 |
|||
77685 79646 80535 82655 85251 86996 91014 96566 97739 105939 |
|||
108240 108681 119754 122436 123164 126489 140636 150480 153179 163070 |
|||
</pre> |
|||
=={{header|Wren}}== |
=={{header|Wren}}== |
||
{{libheader|Wren-gmp}} |
{{libheader|Wren-gmp}} |