OFFSET
1,2
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
EXAMPLE
See A124652.
MATHEMATICA
nn = 54; c[_] := False; a[1] = 1; a[2] = 2; s = u = 3; c[1] = c[2] = True;
f[x_] := f[x] = Times @@ FactorInteger[x][[All, 1]];
{1}~Join~Reap[Do[Sow[s]; k = u; While[Or[Mod[s, f[k]] != 0, c[k]], k++];
Set[{a[n], c[k]}, {k, True}];
s += k; If[k == u, While[c[u], u++]], {n, 3, nn}] ][[-1, 1]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Michael De Vlieger, Apr 25 2024
STATUS
approved