A078860 -id:A078860 - cp's OEIS frontend

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

Labos Elemer, Dec 13 2002

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

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

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

A078861 Least positive residues [mod 210] representing those residue classes which can be smaller prime of a difference 6 taken from A031924.

Original entry on oeis.org

11, 13, 17, 23, 31, 37, 41, 47, 53, 61, 67, 73, 83, 97, 101, 103, 107, 121, 131, 137, 143, 151, 157, 163, 167, 173, 181, 187, 191, 193

Offset: 1

Labos Elemer, Dec 13 2002

Cf. A031924, A008364, A078859, A078860.

t=Flatten[Position[Table[GCD[w, 210], {w, 1, 210}], 1]] t2=Intersection[t, t+6]-6

Intersection[RRS(210), 6+RRS{210)]-6. RRS[210]=reduced residue system of 210=first 48=phi[210] terms of A008364; 210k+r generates complete A031924 with suitable k and r taken from these 30 numbers.

cp's OEIS Frontend

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.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica