Strange unique prime triplets: Difference between revisions
m
→{{header|Prolog}}
Line 2,036:
primes(N, Limit):-
between(3, Limit, N),
N /\ 1 > 0,
M is floor(sqrt(N)) - 1, % reverse 2*I+1
Max is M div 2,
| |||