A324044 - OEIS

%I #6 Feb 14 2019 07:46:48

%S 0,0,0,0,0,2,0,0,-1,2,0,6,0,2,2,0,0,7,0,6,2,2,0,14,-3,2,-6,6,0,20,0,0,

%T 2,2,2,23,0,2,2,14,0,24,0,6,4,2,0,30,-5,9,2,6,0,20,2,14,2,2,0,56,0,2,

%U 2,0,2,32,0,6,2,28,0,55,0,2,6,6,2,36,0,30,-25,2,0,68,2,2,2,14,0,70,2,6,2,2,2,62,0,11,-2,33,0,44,0,14,30

%N a(n) = A003958(n) - A033879(n).

%H Antti Karttunen, <a href="/A324044/b324044.txt">Table of n, a(n) for n = 1..20000</a>

%F a(n) = A003958(n) - A033879(n).

%o (PARI)

%o A003958(n) = { my(f = factor(n)); for(i=1, #f~, f[i, 1]--); factorback(f); };

%o A033879(n) = (2*n-sigma(n));

%o A324044(n) = (A003958(n)-A033879(n));

%Y Cf. A003958, A033879.

%Y Cf. also A319687, A323911.

%K sign

%O 1,6

%A _Antti Karttunen_, Feb 13 2019