A372111 Partial sums of A124652.

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

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

Cf. A007947, A109890, A109735, A124652.

Sequence in context: A294413 A122554 A111734 * A117457 A024674 A026104

Adjacent sequences: A372108 A372109 A372110 * A372112 A372113 A372114

Keyword

nonn

Author

Michael De Vlieger, Apr 25 2024

Status

approved