|
%I #13 Jul 31 2023 20:35:06
%S 133,329,403,427,623,721,781,817,917,1079,1211,1241,1417,1507,1603,
%T 1799,1819,1897,1991,2077,2191,2231,2681,2779,2923,2959,2983,3073,
%U 3107,3269,3443,3563,3661,4121,4151,4169,4249,4411,4427,4709,4739,4837,5033
%N Semiprimes p1*p2 such that p2 > p1 and p2 mod p1 = 5.
%H Harvey P. Dale, <a href="/A064903/b064903.txt">Table of n, a(n) for n = 0..1000</a>
%t sp5Q[n_]:=Module[{f=Transpose[FactorInteger[n]][[1]]},Mod[Last[f], First[ f]] == 5]; Select[Range[5500],PrimeOmega[#]==2&&sp5Q[#]&] (* _Harvey P. Dale_, Aug 12 2014 *)
%Y Cf. A001358 (p2 mod p1 = 0), A064899-A064911.
%K nonn
%O 0,1
%A _Patrick De Geest_, Oct 13 2001
%E Name clarified by _Sean A. Irvine_, Jul 31 2023
|
