|
%I #4 Oct 15 2013 22:31:46
%S 7,13,19,37,43,67,79,97,103,109,127,139,163,169,187,193
%N Least positive residues [mod 210] representing those residue classes which can be lesser of prime pairs from A029710.
%F Intersection[RRS(210), 4+RRS{210)]-4 and {7}. RRS[210]=reduced residue system of 210=first 48=phi[210] terms of A008364; additional term 7 is a singular cases; 210k+r generates complete A029710 with suitable k and r taken from these 15+1 numbers.
%t t=Flatten[Position[Table[GCD[w, 210], {w, 1, 210}], 1]] t2=Intersection[t, t+4]-4
%Y Cf. A029710, A008364, A078859.
%K fini,full,nonn
%O 1,1
%A _Labos Elemer_, Dec 13 2002
|
