Strange unique prime triplets: Difference between revisions
Content added Content deleted
m (...slightly more pretty) |
(add Fermat) |
||
Line 562: | Line 562: | ||
Found 241,580 strange prime triplets with n, m, p < 1,000. |
Found 241,580 strange prime triplets with n, m, p < 1,000. |
||
</pre> |
</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}}== |
=={{header|FreeBASIC}}== |