login
Prime numbers that are the exact average of eight consecutive odd semiprimes.
2

%I #30 Oct 09 2023 18:37:43

%S 43,317,607,719,853,887,919,1231,1237,1283,1303,1951,2179,2609,3001,

%T 3271,3389,3491,3547,3643,3889,3931,4241,4297,4447,4517,4567,4621,

%U 4817,4831,4871,4909,5479,5623,5647,5653,5953,6211,6301,6869,7019,7559,8011,8191,8297,8311,8317,8369,8447

%N Prime numbers that are the exact average of eight consecutive odd semiprimes.

%e 43 is a term because (25 + 33 + 35 + 39 + 49 + 51 + 55 + 57)/8 = 43 is prime.

%e 719 is a term because (703 + 707 + 713 + 717 + 721 + 723 + 731 + 737)/8 = 719 is prime.

%t Select[Mean /@ Partition[Select[Range[1, 9000, 2], PrimeOmega[#] == 2 &], 8, 1], PrimeQ] (* _Amiram Eldar_, Sep 25 2023 *)

%Y Cf. A000040, A046315.

%Y Cf. A363074, A363187, A363188, A364147, A364148, A364149, A364321, A364689.

%K nonn

%O 1,1

%A _Elmo R. Oliveira_, Sep 25 2023