cp's OEIS Frontend

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.

A332423 If n = Product (p_j^k_j) then a(n) = Sum ((-1)^(k_j + 1) * k_j).

This page as a plain text file.
%I A332423 #12 Oct 09 2023 02:16:45
%S A332423 0,1,1,-2,1,2,1,3,-2,2,1,-1,1,2,2,-4,1,-1,1,-1,2,2,1,4,-2,2,3,-1,1,3,
%T A332423 1,5,2,2,2,-4,1,2,2,4,1,3,1,-1,-1,2,1,-3,-2,-1,2,-1,1,4,2,4,2,2,1,0,1,
%U A332423 2,-1,-6,2,3,1,-1,2,3,1,1,1,2,-1,-1,2,3,1,-3
%N A332423 If n = Product (p_j^k_j) then a(n) = Sum ((-1)^(k_j + 1) * k_j).
%C A332423 Sum of odd exponents in prime factorization of n minus the sum of even exponents in prime factorization of n.
%H A332423 Amiram Eldar, <a href="/A332423/b332423.txt">Table of n, a(n) for n = 1..10000</a>
%H A332423 <a href="/index/Eu#epf">Index entries for sequences computed from exponents in factorization of n</a>.
%F A332423 From _Amiram Eldar_, Oct 09 2023: (Start)
%F A332423 Additive with a(p^e) = (-1)^(e+1) * e.
%F A332423 a(n) = A350387(n) - A350386(n).
%F A332423 Sum_{k=1..n} a(k) ~ n * (log(log(n)) + B - C), where B is Mertens's constant (A077761) and C = Sum_{p prime} (3*p+1)/(p*(p+1)^2) = 0.81918453457738985491 ... . (End)
%e A332423 a(2700) = a(2^2 * 3^3 * 5^2) = -2 + 3 - 2 = -1.
%t A332423 a[n_] := Plus @@ ((-1)^(#[[2]] + 1) #[[2]] & /@ FactorInteger[n]); a[1] = 0; Table[a[n], {n, 1, 80}]
%o A332423 (PARI) a(n) = vecsum(apply(x -> (-1)^(x+1) * x, factor(n)[, 2])); \\ _Amiram Eldar_, Oct 09 2023
%Y A332423 Cf. A001222, A037916, A067255, A071321, A077761, A195017, A316523, A319273, A332422, A350386, A350387.
%K A332423 sign,easy
%O A332423 1,4
%A A332423 _Ilya Gutkovskiy_, Feb 12 2020