Carmichael 3 strong pseudoprimes: Difference between revisions
Content added Content deleted
Line 2,229:
L = [1, 2, 2 | W].
prime(N) :-
N >= 2,
wheel235(W),
prime(N, 2, W).
prime(N, D, _) :- D*D > N, !.
prime(N, D,
N mod D =\= 0,
</lang>
{{Out}}
|