OFFSET
1,1
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
Declan Boushy, Jul 24 2024
EXTENSIONS
More terms from Pontus von Brömssen, Jul 25 2024
STATUS
approved