Primes whose first and last number is 3: Difference between revisions
Content added Content deleted
(add FreeBASIC) |
(add fermat) |
||
| Line 186: | Line 186: | ||
Found 2251 primes beginning and ending with 3 under 1,000,000. |
Found 2251 primes beginning and ending with 3 under 1,000,000. |
||
</pre> |
</pre> |
||
=={{header|Fermat}}== |
|||
<lang fermat>np := 1; |
|||
!(3,' '); |
|||
for d = 1 to 5 do |
|||
for i = 3 to 10^d-1 by 10 do |
|||
n:=3*10^d + i; |
|||
if Isprime(n) = 1 then |
|||
np:=np+1; |
|||
if n<4000 then |
|||
!(n,' '); |
|||
if Divides(10,np) then !! fi; |
|||
fi; |
|||
fi; |
|||
od; |
|||
od; |
|||
!!; |
|||
!!; |
|||
!!('There were ',np,' primes of the form 3...3 below 1,000,000'); |
|||
</lang> |
|||
{{out}}<pre> |
|||
3 313 353 373 383 3023 3083 3163 3203 3253 |
|||
3313 3323 3343 3373 3413 3433 3463 3533 3583 3593 |
|||
3613 3623 3643 3673 3733 3793 3803 3823 3833 3853 |
|||
3863 3923 3943</pre> |
|||
=={{header|FreeBASIC}}== |
=={{header|FreeBASIC}}== |
||