This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A332794 #32 Jan 22 2024 08:18:25
%S A332794 1,-1,5,-4,9,-5,13,-12,21,-9,21,-20,25,-13,45,-32,33,-21,37,-36,65,
%T A332794 -21,45,-60,65,-25,81,-52,57,-45,61,-80,105,-33,117,-84,73,-37,125,
%U A332794 -108,81,-65,85,-84,189,-45,93,-160,133,-65,165,-100,105,-81,189
%N A332794 a(n) = Sum_{d|n} (-1)^(d + 1) * d * phi(n/d).
%H A332794 Olivier Bordelles, <a href="https://cs.uwaterloo.ca/journals/JIS/VOL18/Bordelles/bord21.html">A Multidimensional Cesaro Type Identity and Applications</a>, J. Int. Seq. 18 (2015) # 15.3.7.
%F A332794 G.f.: Sum_{k>=1} phi(k) * x^k / (1 + x^k)^2.
%F A332794 Dirichlet g.f.: zeta(s-1)^2 * (1 - 2^(2 - s)) / zeta(s).
%F A332794 a(n) = Sum_{k=1..n} gcd(n, k) if n odd, Sum_{k=1..n} (-1)^(k + 1) * gcd(n, k) if n even.
%F A332794 From _Amiram Eldar_, Nov 04 2022: (Start)
%F A332794 Multiplicative with a(2^e) = -e*2^(e-1), and a(p^e) = (e*(p-1) + p)*p^(e-1) for p > 2.
%F A332794 Sum_{k=1..n} a(k) ~ c * n^2, where c = 3*log(2)/Pi^2 = 0.210691... . (End)
%F A332794 a(2*n) = - Sum_{k = 1..n} gcd(2*k, n) = - A344372(n); a(2*n+1) = A018804(2*n+1). - _Peter Bala_, Jan 11 2024
%F A332794 a(n) = Sum_{k = 1..n} (-1)^(1 + gcd(k, n)) * gcd(k, n) (follows from an identity of Cesàro. See, for example, Bordelles, Lemma 1). - _Peter Bala_, Jan 16 2024
%t A332794 a[n_] := Sum[(-1)^(d + 1) d EulerPhi[n/d], {d, Divisors[n]}]; Table[a[n], {n, 1, 55}]
%t A332794 nmax = 55; CoefficientList[Series[Sum[EulerPhi[k] x^k/(1 + x^k)^2, {k, 1, nmax}], {x, 0, nmax}], x] // Rest
%t A332794 a[n_] := If[OddQ[n], Sum[GCD[n, k], {k, 1, n}], Sum[(-1)^(k + 1) GCD[n, k], {k, 1, n}]]; Table[a[n], {n, 1, 55}]
%t A332794 f[p_, e_] := (e*(p-1) + p)*p^(e-1); f[2, e_] := -e*2^(e-1); a[1] = 1; a[n_] := Times @@ f @@@ FactorInteger[n]; Array[a, 100] (* _Amiram Eldar_, Nov 04 2022 *)
%o A332794 (PARI) a(n) = sumdiv(n, d, (-1)^(d+1)*d*eulerphi(n/d)); \\ _Michel Marcus_, Feb 24 2020
%Y A332794 Cf. A000010, A018804, A078747, A143520, A181983, A193356, A199084, A344372, A368929.
%K A332794 sign,mult,easy
%O A332794 1,3
%A A332794 _Ilya Gutkovskiy_, Feb 24 2020