A078862 Smallest primes from A031924, each belonging to those different residue class of mod 210 which are listed in A078861. Arranged according to possible least positive residues mod 210.
1901, 433, 647, 23, 31, 3607, 251, 47, 53, 61, 1117, 73, 83, 727, 941, 733, 947, 331, 131, 557, 353, 151, 157, 373, 167, 173, 601, 607, 3761, 1033
Offset: 1
Examples
Several terms are equal to corresponding ones in A078861, while others are larger like: 1033=4.210+193, where r=193 is in A078861.
Programs
-
Mathematica
f[x_] := Mod[Prime[x], 210] d[x_] := Prime[x+1]-Prime[x] t=Table[0, {210}]; Do[s=f[n]; If[Equal[d[n], 6]&&s<211&&t[[s]]==0, t[[s]]=Prime[n]], {n, 1, 1000}]; t