Prime numbers whose neighboring pairs are tetraprimes: Difference between revisions
Prime numbers whose neighboring pairs are tetraprimes (view source)
Revision as of 22:11, 26 June 2023
, 11 months ago→{{header|XPL0}}: Change average to median
m (→{{header|Pascal}}: added Free in Free Pascal) |
(→{{header|XPL0}}: Change average to median) |
||
Line 1,387:
Maximum gap between those 10,551 primes : 10,284
</pre>
=={{header|XPL0}}==
Works on Raspberry Pi.
<syntaxhighlight lang "XPL0">include xpllib; \for IsPrime, Sort, and Print
func Median(A, Len); \Return median value of (sorted) array A
int A, Len, M;
[M:= Len/2;
return if rem(0) then A(M) else (A(M-1) + A(M)) / 2;
];
int Have7; \
int N;
int Div, Count, Distinct;
Line 1,412 ⟶ 1,420:
];
int Sign, TenPower, TP, Case, N, N0, Count, Count7,
[Sign:= -1; TenPower:= 100_000;
for TP:= 5 to 7 do
[for Case:= 1 to 2 do \preceding or following neighboring pairs
[Count:= 0; Count7:= 0; N0:= 0;
if TP = 5 then CrLf(0); \100_000
for N:= 3 to TenPower-1 do
Line 1,430 ⟶ 1,438:
if Have7 then Count7:= Count7+1;
if N0 # 0 then
[
];
N0:= N;
Line 1,440 ⟶ 1,446:
N:= N+1;
];
Sort(Gaps, Count-1);
Print("\nFound %,d primes under %,d whose neighboring pair are tetraprimes\n",
Count, TenPower);
Print("of which %,d have a neighboring pair, one of whose factors is 7.\n\n",
Count7);
Print("Minimum gap between %,d primes : %,d\n", Count,
Print("
Print("Maximum gap between %,d
Sign:= Sign * -1;
];
Line 1,465 ⟶ 1,471:
Minimum gap between 49 primes : 56
Maximum gap between 49 primes : 6,460
Line 1,477 ⟶ 1,483:
Minimum gap between 46 primes : 112
Maximum gap between 46 primes : 10,284
Line 1,484 ⟶ 1,490:
Minimum gap between 885 primes : 4
Maximum gap between 885 primes : 7,712
Line 1,491 ⟶ 1,497:
Minimum gap between 866 primes : 4
Maximum gap between 866 primes : 10,284
Line 1,497 ⟶ 1,503:
of which 5,176 have a neighboring pair, one of whose factors is 7.
Minimum gap between
Maximum gap between
Found 10,551 primes under 10,000,000 whose neighboring pair are tetraprimes
of which 5,069 have a neighboring pair, one of whose factors is 7.
Minimum gap between
Maximum gap between
</pre>
| |||