OFFSET
1,1
COMMENTS
LINKS
Sam Chapman, Table of n, a(n) for n = 1..9999
EXAMPLE
MATHEMATICA
s={4}; k={}; Do[G=GCD[s[[-1]], n]; AppendTo[s, If[G==1, s[[-1]]+n, n/G]]; If[G>1, AppendTo[k, n]], {n, 160}]; k (* James C. McMahon, Apr 01 2026 *)
CROSSREFS
KEYWORD
nonn,changed
AUTHOR
Sam Chapman, Mar 18 2026
STATUS
approved
