A064906 Semiprimes p1*p2 such that p2 > p1 and p2 mod p1 = 8.
209, 451, 611, 713, 949, 1003, 1073, 1177, 1661, 1903, 1957, 1963, 2159, 2629, 2977, 3113, 3131, 3233, 3401, 3653, 3839, 3893, 3953, 3991, 4471, 4667, 5053, 5371, 5533, 5567, 5609, 5627, 5891, 6017, 6019, 6119, 6259, 6289, 6743, 7003, 7033, 7061, 7141
Offset: 1
Keywords
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
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 *)
Extensions
Offset corrected and name clarified by Sean A. Irvine, Jul 31 2023