Additive primes: Difference between revisions

=={{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>