|
|
A374950
|
|
Sequence starting with 2, where the next term is the lowest new integer which is greater than 1 and coprime with the sum of all previous terms.
|
|
0
|
|
|
2, 3, 4, 5, 9, 6, 7, 11, 8, 12, 10, 13, 17, 14, 15, 19, 16, 20, 18, 21, 27, 22, 23, 25, 26, 24, 28, 29, 33, 30, 31, 35, 32, 36, 34, 37, 41, 38, 39, 43, 40, 44, 42, 45, 49, 46, 47, 53, 48, 50, 51, 55, 52, 56, 54, 57, 61, 58, 59, 67, 60, 62, 64, 63, 65, 68, 66
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
a={2}; s=2; For[n=2, n<=67, n++, k=2; While[GCD[k, s]!=1||MemberQ[a, k], k++]; s+=k; AppendTo[a, k]]; a (* Stefano Spezia, Jul 25 2024 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|