%I #14 Jul 31 2023 20:33:52
%S 209,451,611,713,949,1003,1073,1177,1661,1903,1957,1963,2159,2629,
%T 2977,3113,3131,3233,3401,3653,3839,3893,3953,3991,4471,4667,5053,
%U 5371,5533,5567,5609,5627,5891,6017,6019,6119,6259,6289,6743,7003,7033,7061,7141
%N Semiprimes p1*p2 such that p2 > p1 and p2 mod p1 = 8.
%H Harvey P. Dale, <a href="/A064906/b064906.txt">Table of n, a(n) for n = 1..1000</a>
%t spQ[n_]:=Module[{fi=Transpose[FactorInteger[n]],a,b},a=fi[[1]];b= fi[[2]]; Length[a]==2&&Max[b]==1&&Mod[a[[2]],a[[1]]]==8]; Select[Range[ 8000],spQ] (* _Harvey P. Dale_, Sep 16 2014 *)
%Y Cf. A001358 (p2 mod p1 = 0), A064899-A064911.
%K nonn
%O 1,1
%A _Patrick De Geest_, Oct 13 2001
%E Offset corrected and name clarified by _Sean A. Irvine_, Jul 31 2023
|