Cousin primes: Difference between revisions
Add FOCAL
(Added Algol 68) |
Not a robot (talk | contribs) (Add FOCAL) |
||
Line 438:
{ 967 971 }
</pre>
=={{header|FOCAL}}==
<lang FOCAL>01.10 S C=0
01.20 T %4
01.30 F N=3,2,996;D 2
01.40 T "AMOUNT OF COUSIN PRIME PAIRS",C,!
01.50 Q
02.10 S P=N;D 3;S D=A
02.20 S P=N+4;D 3
02.30 I (-A*D)2.4;R
02.40 T N,P,!
02.50 S C=C+1
03.10 S K=2
03.20 I (K-P)3.3;S A=-1;R
03.30 S B=P/K
03.40 I (FITR(B)-B)3.5,3.7,3.5
03.50 S K=K+1
03.60 G 3.2
03.70 S A=0</lang>
{{out}}
<pre style="height:14em;">= 3= 7
= 7= 11
= 13= 17
= 19= 23
= 37= 41
= 43= 47
= 67= 71
= 79= 83
= 97= 101
= 103= 107
= 109= 113
= 127= 131
= 163= 167
= 193= 197
= 223= 227
= 229= 233
= 277= 281
= 307= 311
= 313= 317
= 349= 353
= 379= 383
= 397= 401
= 439= 443
= 457= 461
= 463= 467
= 487= 491
= 499= 503
= 613= 617
= 643= 647
= 673= 677
= 739= 743
= 757= 761
= 769= 773
= 823= 827
= 853= 857
= 859= 863
= 877= 881
= 883= 887
= 907= 911
= 937= 941
= 967= 971
AMOUNT OF COUSIN PRIME PAIRS= 41</pre>
=={{header|Go}}==
| |||