Strange unique prime triplets: Difference between revisions
add Fermat
m (...slightly more pretty) |
(add Fermat) |
||
Line 562:
Found 241,580 strange prime triplets with n, m, p < 1,000.
</pre>
=={{header|Fermat}}==
<lang fermat>Function IsSUPT(n,m,p) =
if Isprime(n) and Isprime(m) and Isprime(p) and Isprime(n+m+p) then 1 else 0 fi.
for n=3 to 19 do
for m=n+2 to 23 do
for p=m+2 to 29 do
if IsSUPT(n,m,p) then !!(n,m,p) fi;
od;
od;
od</lang>
I'll leave the stretch goal for someone else.
=={{header|FreeBASIC}}==
| |||