%I #10 Dec 19 2021 16:23:22
%S 1383,3091,3093,5609,8129,8131,8133,9753,9983,9985,9987,10401,11013,
%T 12053,13637,16499,22457,30991,43339,45803,49083,53761,55559,55561,
%U 58277,63047,63951,64829,69603,71727,76803,80633,92603,92605,98493
%N Numbers n such that n, n+2, n+4, n+6, n+8, n+10 are semiprimes.
%C Semiprimes in arithmetic progression. All terms are odd, see also A056809.
%t PrimeFactorExponentsAdded[n_] := Plus @@ Flatten[Table[ #[[2]], {1}] & /@ FactorInteger[n]]; Select[ Range[ 99210], PrimeFactorExponentsAdded[ # ] == PrimeFactorExponentsAdded[ # + 2] == PrimeFactorExponentsAdded[ # + 4] == PrimeFactorExponentsAdded[ # + 6] == PrimeFactorExponentsAdded[ # + 8] == PrimeFactorExponentsAdded[ # + 10] == 2 &] (* _Robert G. Wilson v_, Feb 24 2004 *)
%t spQ[n_]:=PrimeOmega[n]==2; Select[Range[100000],AllTrue[#+{0,2,4,6,8,10},spQ]&] (* _Harvey P. Dale_, Dec 19 2021 *)
%Y Cf. A056809, A070552, A092125, A092126, A092127, A092129.
%K easy,nonn
%O 1,1
%A _Zak Seidov_, Feb 22 2004
%E More terms from _Don Reble_, Feb 23 2004
%E More terms from _Robert G. Wilson v_, Feb 24 2004
|