login
A372111
Partial sums of A124652.
6
1, 3, 6, 10, 15, 24, 30, 38, 54, 66, 77, 84, 98, 126, 144, 168, 189, 216, 248, 279, 360, 370, 390, 403, 572, 594, 627, 646, 663, 702, 728, 777, 814, 858, 894, 942, 996, 1060, 1085, 1120, 1160, 1189, 1230, 1245, 1290, 1320, 1370, 1450, 1508, 1560, 1620, 1692, 1739
OFFSET
1,2
COMMENTS
Analogous to A109735 with respect to A109890.
A007947(A124652(n+1)) | a(n) for n > 2.
LINKS
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