Prime numbers whose neighboring pairs are tetraprimes: Difference between revisions

 

;Definitions

* OEIS sequence [[oeis:A362578|A362578: Prime numbers followed by two consecutive numbers which are products of four distinct primes (or tetraprimes).]]

<br>

 

=={{header|Wren}}==

{{libheader|Wren-math}}

{{libheader|Wren-sort}}

{{libheader|Wren-fmt}}

import "./sort" for Find

import "./fmt" for Fmt

 

var primes = Int.primeSieve(1e7)

var highest5 = primes[Find.nearest(primes, 1e5) - 1]

var highest6 = primes[Find.nearest(primes, 1e6) - 1]

var j = 1e5

for (p in primes) {

tetras1.add(p)

}

tetras2.add(p)

}

 

Fmt.tprint("$5d ", tetras, 10)

}

Fmt.print("Minimum gap between those $,d primes : $,d", c, min)

Fmt.print("Maximum gap between those $,d primes : $,d", c, max)

Fmt.print()

 

=={{header|XPL0}}==

 

 

int N;

int Div, Count, Distinct;

];

 

[Sign:= -1; TenPower:= 100_000;

for TP:= 5 to 7 do

[for Case:= 1 to 2 do \preceding or following neighboring pairs

if TP = 5 then CrLf(0); \100_000

for N:= 3 to TenPower-1 do

if Have7 then Count7:= Count7+1;

if N0 # 0 then

];

N0:= N;

N:= N+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);

Sign:= Sign * -1;

];

 

Minimum gap between 49 primes : 56

Maximum gap between 49 primes : 6,460

 

 

Minimum gap between 46 primes : 112

Maximum gap between 46 primes : 10,284

 

 

Minimum gap between 885 primes : 4

Maximum gap between 885 primes : 7,712

 

 

Minimum gap between 866 primes : 4

Maximum gap between 866 primes : 10,284

 

of which 5,176 have a neighboring pair, one of whose factors is 7.

 

 

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.

 

</pre>