A370896 Partial alternating sums of the squarefree kernel function (A007947).

1, -1, 2, 0, 5, -1, 6, 4, 7, -3, 8, 2, 15, 1, 16, 14, 31, 25, 44, 34, 55, 33, 56, 50, 55, 29, 32, 18, 47, 17, 48, 46, 79, 45, 80, 74, 111, 73, 112, 102, 143, 101, 144, 122, 137, 91, 138, 132, 139, 129, 180, 154, 207, 201, 256, 242, 299, 241, 300, 270, 331, 269

Offset

1,3

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

László Tóth, Alternating Sums Concerning Multiplicative Arithmetic Functions, Journal of Integer Sequences, Vol. 20 (2017), Article 17.2.1.

Formula

a(n) = Sum_{k=1..n} (-1)^(k+1) * A007947(k).

a(n) = c * n^2 + O(R(n)), where c = A065463 / 10 = 0.07044422..., R(n) = x^(3/2)*exp(-c_1*log(n)^(3/5)/log(log(n))^(1/5)) unconditionally, or x^(7/5)*exp(c_2*log(n)/log(log(n))) assuming the Riemann hypothesis, and c_1 and c_2 are positive constants (Tóth, 2017).

Mathematica

rad[n_] := Times @@ (First[#]& /@ FactorInteger[n]); Accumulate[Array[(-1)^(#+1) * rad[#] &, 100]]

Prog

(PARI) rad(n) = vecprod(factor(n)[, 1]);
lista(kmax) = {my(s = 0); for(k = 1, kmax, s += (-1)^(k+1) * rad(k); print1(s, ", "))};

Crossrefs

Cf. A007947, A065463, A073355.

Similar sequences: A068762, A068773, A307704, A357817, A362028.

Sequence in context: A294137 A246723 A339168 * A307438 A198926 A243998

Adjacent sequences: A370893 A370894 A370895 * A370897 A370898 A370899

Keyword

sign,easy

Author

Amiram Eldar, Mar 05 2024

Status

approved