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

Author

Declan Boushy, Jul 24 2024

Keywords

• nonn

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