Additive primes: Difference between revisions
→{{header|Free Pascal}}
Line 1,614:
If is_prime[x] And is_prime[GetSumOfDigits(x)] Then
Begin
write(x
inc(counter);
End;
Line 1,622:
If is_prime[x] And is_prime[GetSumOfDigits(x)] Then
Begin
write(x:4);
inc(counter);
End;
Line 1,634 ⟶ 1,635:
{{out}}
<pre>
2 3 5 7 11 23 29 41 43 47
157 173 179 191 193 197 199 223 227 229
283 311 313 317 331 337 353 359 373 379 397 401 409 421 443 449 461▼
241 263 269 281 283 311 313 317 331 337
463 467 487 ▼
54 additive primes found.
|