|
%I #7 Aug 27 2018 22:29:55
%S 0,0,0,1,0,2,0,3,1,2,0,9,0,2,2,7,0,10,0,11,2,2,0,23,1,2,4,13,0,23,0,
%T 15,2,2,2,37,0,2,2,29,0,27,0,17,13,2,0,51,1,14,2,19,0,34,2,35,2,2,0,
%U 81,0,2,15,31,2,35,0,23,2,31,0,91,0,2,15,25,2,39,0,65,13,2,0,99,2,2,2,47,0,97,2,29,2,2,2,107,0,18,19,65,0,47
%N a(n) = Sum_{d|n} [moebius(n/d) < 0]*(sigma(d)-d).
%H Antti Karttunen, <a href="/A318326/b318326.txt">Table of n, a(n) for n = 1..65537</a>
%F a(n) = Sum_{d|n} [A008683(n/d) == -1]*A001065(d).
%F a(n) = A318325(n) - A051953(n).
%F a(n) = A318320(n) - A318442(n).
%o (PARI) A318326(n) = sumdiv(n,d,(-1==moebius(n/d))*(sigma(d)-d));
%Y Cf. A001065, A051953, A291784, A318320, A318325, A318442.
%K nonn
%O 1,6
%A _Antti Karttunen_, Aug 26 2018
|
