# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a370898 Showing 1-1 of 1 %I A370898 #7 Mar 05 2024 11:51:52 %S A370898 1,-2,2,-3,3,-9,-1,-10,0,-18,-6,-26,-12,-36,-12,-29,-11,-41,-21,-51, %T A370898 -19,-55,-31,-67,-41,-83,-55,-95,-65,-137,-105,-138,-90,-144,-96,-146, %U A370898 -108,-168,-112,-166,-124,-220,-176,-236,-176,-248,-200,-268,-218,-296,-224,-294,-240,-324,-252,-324,-244,-334,-274,-394 %N A370898 Partial alternating sums of the sum of unitary divisors function (A034448). %H A370898 Amiram Eldar, Table of n, a(n) for n = 1..10000 %H A370898 László Tóth, Alternating Sums Concerning Multiplicative Arithmetic Functions, Journal of Integer Sequences, Vol. 20 (2017), Article 17.2.1. %F A370898 a(n) = Sum_{k=1..n} (-1)^(k+1) * A034448(k). %F A370898 a(n) = -c * n^2 + O(n * log(n)^(5/3)), where c = Pi^2/(84*zeta(3)) = 0.0977451984014... (Tóth, 2017). %t A370898 usigma[n_] := Times @@ (1 + Power @@@ FactorInteger[n]); usigma[1] = 1; Accumulate[Array[(-1)^(# + 1) * usigma[#] &, 100]] %o A370898 (PARI) usigma(n) = {my(f = factor(n)); prod(i = 1, #f~, 1 + f[i, 1]^f[i, 2]);} %o A370898 lista(kmax) = {my(s = 0); for(k = 1, kmax, s += (-1)^(k+1) * usigma(k); print1(s, ", "))}; %Y A370898 Cf. A002117, A034448, A064609. %Y A370898 Similar sequences: A068762, A068773, A307704, A357817, A362028. %K A370898 sign,easy %O A370898 1,2 %A A370898 _Amiram Eldar_, Mar 05 2024 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE