|
%I
%S 1901,433,647,23,31,3607,251,47,53,61,1117,73,83,727,941,733,947,331,
%T 131,557,353,151,157,373,167,173,601,607,3761,1033
%N 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.
%e Several terms are equal to corresponding ones in A078861, while others are larger like: 1033=4.210+193, where r=193 is in A078861.
%t 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
%Y Cf. A031924, A008364, A078861, A078859-A078864.
%K fini,full,nonn
%O 1,1
%A Labos E. (labos(AT)ana.sote.hu), Dec 13 2002
|
