A078860 Least positive residues [mod 210] representing those residue classes which can be lesser of prime pairs from A029710.
7, 13, 19, 37, 43, 67, 79, 97, 103, 109, 127, 139, 163, 169, 187, 193
Offset: 1
Programs
-
Mathematica
t=Flatten[Position[Table[GCD[w, 210], {w, 1, 210}], 1]] t2=Intersection[t, t+4]-4