Lucas-Lehmer test: Difference between revisions
Content deleted Content added
m →{{header|REXX}}: removed $T statement used for logging. -- ~~~~ |
Racket |
||
| Line 1,141: | Line 1,141: | ||
<pre> Finding Mersenne primes in M[2..33218]: |
<pre> Finding Mersenne primes in M[2..33218]: |
||
M2 M3 M5 M7 M13 M17 M19 M31 M61 M89 M107 M127 M521 M607 M1279 M2203 M2281 M3217 M4253 M4423 M9689 M9941 M11213 M19937 M21701 M23209</pre> |
M2 M3 M5 M7 M13 M17 M19 M31 M61 M89 M107 M127 M521 M607 M1279 M2203 M2281 M3217 M4253 M4423 M9689 M9941 M11213 M19937 M21701 M23209</pre> |
||
=={{header|Racket}}== |
|||
<lang racket> |
|||
#lang racket |
|||
(require math) |
|||
(define (mersenne-prime? p) |
|||
(divides? (- (expt 2 p) 1) (S (- p 1)))) |
|||
(define (S n) |
|||
(if (= n 1) 4 (- (sqr (S (- n 1))) 2))) |
|||
(define (loop p) |
|||
(when (mersenne-prime? p) |
|||
(displayln p)) |
|||
(loop (next-prime p))) |
|||
(loop 3) |
|||
</lang> |
|||
=={{header|REXX}}== |
=={{header|REXX}}== |
||