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

Author

Labos Elemer, Dec 13 2002

Keywords

• fini
• full
• nonn

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.
		

Crossrefs

Cf. A031924, A008364, A078861, A078859-A078864.

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