Additive primes: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add Draco) |
Not a robot (talk | contribs) (Add VTL-2) |
||
Line 3,317: | Line 3,317: | ||
54 additive primes found. |
54 additive primes found. |
||
</pre> |
</pre> |
||
=={{header|VTL-2}}== |
|||
<lang VTL2>10 M=499 |
|||
20 :1)=1 |
|||
30 P=2 |
|||
40 :P)=0 |
|||
50 P=P+1 |
|||
60 #=M>P*40 |
|||
70 P=2 |
|||
80 C=P*2 |
|||
90 :C)=1 |
|||
110 C=C+P |
|||
120 #=M>C*90 |
|||
130 P=P+1 |
|||
140 #=M/2>P*80 |
|||
150 P=2 |
|||
160 N=0 |
|||
170 #=:P)*290 |
|||
180 S=0 |
|||
190 K=P |
|||
200 K=K/10 |
|||
210 S=S+% |
|||
220 #=0<K*200 |
|||
230 #=:S)*290 |
|||
240 ?=P |
|||
250 $=9 |
|||
260 N=N+1 |
|||
270 #=N/10*0+%=0=0*290 |
|||
280 ?="" |
|||
290 P=P+1 |
|||
300 #=M>P*170 |
|||
310 ?="" |
|||
320 ?="There are "; |
|||
330 ?=N |
|||
340 ?=" additive primes below "; |
|||
350 ?=M+1</lang> |
|||
{{out}} |
|||
<pre>2 3 5 7 11 23 29 41 43 47 |
|||
61 67 83 89 101 113 131 137 139 151 |
|||
157 173 179 191 193 197 199 223 227 229 |
|||
241 263 269 281 283 311 313 317 331 337 |
|||
353 359 373 379 397 401 409 421 443 449 |
|||
461 463 467 487 |
|||
There are 54 additive primes below 500</pre> |
|||
=={{header|Wren}}== |
=={{header|Wren}}== |