10001th prime: Difference between revisions
→{{header|Prolog}}
Line 502:
=={{header|Prolog}}==
for swi-prolog
<syntaxhighlight lang="prolog">isPrime(2). % prime generator
isPrime(N):-
between(3, inf, N),
N /\ 1 > 0, % odd
M is floor(sqrt(N)) - 1, % reverse 2*I+1
|