A346155 Partial sums of A007978.

2, 5, 7, 10, 12, 16, 18, 21, 23, 26, 28, 33, 35, 38, 40, 43, 45, 49, 51, 54, 56, 59, 61, 66, 68, 71, 73, 76, 78, 82, 84, 87, 89, 92, 94, 99, 101, 104, 106, 109, 111, 115, 117, 120, 122, 125, 127, 132, 134, 137, 139, 142, 144, 148, 150, 153, 155, 158, 160, 167

Offset

1,1

Links

Michel Marcus, Table of n, a(n) for n = 1..10000

Formula

a(n) ~ (1 + A064859) * n. - Amiram Eldar, Jul 11 2021

Example

If b(n) is least non-divisor of n then, a(6) = b(1)+b(2)+b(3)+b(4)+b(5)+b(6) => 2+3+2+3+2+4 = 16.

Mathematica

lnd[n_] := Module[{k = 2}, While[Divisible[n, k], k++]; k]; Accumulate @ Array[lnd, 100] (* Amiram Eldar, Jul 11 2021 *)

Prog

(PARI) f(n) = {my(k=2); while(!(n % k), k++); k; } \\ A007978
a(n) = sum(k=1, n, f(k)); \\ Michel Marcus, Jul 11 2021

Crossrefs

Cf. A007978, A064859.

Sequence in context: A292664 A206807 A182773 * A298869 A219666 A026340

Adjacent sequences: A346152 A346153 A346154 * A346156 A346157 A346158

Keyword

nonn

Author

Shobhit Tewari, Jul 09 2021

Status

approved