%I #7 Jun 06 2019 21:59:22
%S -1,0,0,-2,0,5,0,2,-6,7,0,11,0,9,8,-6,0,11,0,17,10,13,0,31,-20,15,3,
%T 23,0,41,0,10,14,19,12,5,0,21,16,45,0,53,0,35,23,25,0,55,-42,17,20,41,
%U 0,56,16,59,22,31,0,103,0,33,31,-22,18,77,0,53,26,73,0,73,0,39,23,59,18,89,0,85,-51,43,0,135,22,45,32,87,0,134,20
%N a(n) = A285309(n) - n, where A285309 gives the sum of nonsquare divisors of n.
%H Antti Karttunen, <a href="/A326059/b326059.txt">Table of n, a(n) for n = 1..16384</a>
%H Antti Karttunen, <a href="/A326059/a326059.txt">Data supplement: n, a(n) computed for n = 1..65537</a>
%F a(n) = A285309(n) - n.
%F a(n) = A326058(n) - A033879(n).
%o (PARI)
%o A285309(n) = sumdiv(n,d,(!issquare(d))*d);
%o A326059(n) = (A285309(n)-n);
%Y Cf. A033879, A285309, A326058, A326060.
%K sign
%O 1,4
%A _Antti Karttunen_, Jun 06 2019
|