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.
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
Offset: 1
Keywords
Crossrefs
Cf. A084385 (starting with 1).
Programs
-
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 *)
Extensions
More terms from Pontus von Brömssen, Jul 25 2024