A078863 Smallest primes from A029710, each belonging to those different residue class of mod 210 which are listed in A078860. Arranged according to possible least positive residues mod 210.

7, 13, 19, 37, 43, 67, 79, 97, 103, 109, 127, 349, 163, 379, 397, 193

Offset

1,1

Links

Table of n, a(n) for n=1..16.

Example

Several terms are equal to corresponding ones in A078860, while others are larger like: 397=210.1+187 where r=187 is in A078860.

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], 4]&&s<211&&t[[s]]==0, t[[s]]=Prime[n]], {n, 1, 10000}]; t

Crossrefs

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

Sequence in context: A078860 A029710 A145897 * A263091 A320533 A059351

Adjacent sequences: A078860 A078861 A078862 * A078864 A078865 A078866

Keyword

fini,full,nonn

Author

Labos Elemer, Dec 13 2002

Status

approved