|
|
A056955
|
|
Euclid set of class 2 and modulus 3.
|
|
1
|
|
|
5, 8, 11, 17, 23, 29, 41, 47, 53, 59, 71, 83, 89, 101, 107, 113, 131, 137, 149, 167, 173, 179, 191, 197, 227, 233, 239, 251, 257, 263, 269, 281, 293, 311, 317, 347, 353, 359, 383, 389, 401, 419, 431, 443, 449, 461, 467, 479, 491, 503, 509, 521, 557, 563, 569
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
For c<m, (m,c)=1, the Euclid(c, m) set is obtained by deleting from the set of numbers c+m*k, for k>0, every term which has a common factor with a smaller term. See Link for more details.
|
|
LINKS
|
|
|
EXAMPLE
|
The Euclid(2,3) set is constructed by starting from the set of numbers of the form 2+3*k for k>0, i.e., 5, 8, 11, 14, 17, 20, 23, 26, 29, 32, 35,... and deleting every term which has a common factor with a previous one, like 14, 20, 26, 32, 35,... and so on.
|
|
MATHEMATICA
|
eu[c_, m_, n_] := Block[{v, k=1, p=1}, Table[ While[GCD[v = c + m*k, p] > 1, k++]; p *= v; v, {n}]]; eu[2, 3, 55] (* Giovanni Resta, Mar 14 2014 *)
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
Andrea Ercolino (aercolino(AT)yahoo.com)
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|