login
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.
0
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,1
EXAMPLE
Several terms are equal to corresponding ones in A078861, while others are larger like: 1033=4.210+193, where r=193 is in A078861.
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
CROSSREFS
KEYWORD
fini,full,nonn
AUTHOR
Labos Elemer, Dec 13 2002
STATUS
approved